AO-A09Q  tt2b  WISCONSIN  UNIV-MADISON  MATHEMATICS  RESEARCH  CENTER  F/G  12/1 

A  POPULATION  OF  LINEAR»  SECOND  ORDER  ELLIPTIC  PARTIAL  DIFFERENT— ETC (U) 
MAY  80  J  R  RICE»  E  N  HOUSTlS»  W  R  DYKSEN  DAAG29-80-C-0041 

UNCLASSIFIED  MRC-TSR-2079  NL 


ADA09082 


Mathematics  Research  Center 
University  of  Wisconsin-Madison 
610  Walnut  Street 
Madison,  Wisconsin  53706 


Hay  1980 

o 

o 

(Received  April  18,  1980) 

LU 


:'.iv'ti:-.ored  by 

.  Arny  Research  Office 
Box  12211 

Triangle  Park 
so'-t’-'  d.-it  ol  ina  27709 


Approved  for  public -release 
Distribution  unlimited 


asm?  PAGES  mCH  “ 101 


DTIC 

ELECTE 
00T  28  1980 


and 


National  Science  Foundat  ior- 
Washington,  D.C.  205  0.' 


80  10  3  166 


DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DTIC  CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


UNIVERSITY  OF  WISCONSIN  -  MADISON 
MATHEMATICS  RESEARCH  CENTER 


A  POPULATION  OF  LINEAR,  SECOND  ORDER 
ELLIPTIC  PARTIAL  piFFERENTIAL  EQUATIONS 
ON  RECTANGULAR  DOMAINS  *  fART  2  „ 

John  R.  [Rice,  Elias  N.  Houstis  an#-  Wayne  R./Dyksen 


u 


Technical  Nummary  depart  )  2079  ^ 
May  ®Q0'  ■ 


ABSTRACT 
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This  report  contains  the  machine  readable  form  of  the  189  partial 
differential  equations  presented  in  MRC  Technical  Summary  Report  #2078 
"A  POPULATION  OF  LINEAR,  SECOND  ORDER,  ELLIPTIC  PARTIAL  DIFFERENTIAL 
EQUATIONS  ON  RECTANGLES  -  PART  1."  These  are  two  large  files:  EQNFIL 
contains  189  entries  which  are  either  complete  statements  of  a  PDE  in  the 
ELLPACK  language  or  a  reference  to  an  entry  in  MACFIL  with  parameter 
values  given.  MACFIL  contains  the  42  parameterized  PDE’s  in  a  form  suit¬ 
able  for  automatically  substituting  in  parameter  values.  A  few  other 
small  files  are  given  to  facilitate  using  this  problem  population  within 
the  ELLPACK  system. 
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Science  Foundation  under  Grant  Nos.  MCS77-01408  and  MCS79-01437. 
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SIGNIFICANCE  AND  EXPLANATION 


This  is  machine  readable  information  associated  with  MRC  Technical 
Summary  Report  #2078  provided  for  people  who  are  actually  involved  in 
computing  with  the  population  of  PDE  problems.  Many  of  the  189  problems 
are  very  complex  and  the  only  reliable  way  to  transmit  them  accurately  is 
in  this  form. 
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A  POPULATION  OF  LINEAR,  SECOND  ORDER 
ELLIPTIC  PARTIAL  DIFFERENTIAL  EQUATIONS 
ON  RECTANGULAR  DOMAINS  -  PART  2 

John  R.  Rice,  Elias  N.  Houstis  and  Wayne  R.  Dyksen 

1 .  INTRODUCTION 

It  is  assumed  that  the  reader  is  familiar  with  Part  1  of  this  report, 

U.F.C  Technical  Summary  Report  #2078.  This  second  part  presents  the  population  in 
machine  readable  form.  There  are  seven  files;  the  first  is  a  program  that  takes 
information  from  the  other  files  and  creates  complete  ELLPACK  program  with  the 
PDE  problems.  The  second  and  third  files  are  quite  long  and  contain  the  actual 
descriptions  of  the  PDE  problems.  The  last  four  files  are  quite  short  and  have 
information  needed  to  form  complete  ELLPACK  programs;  these  are  not  essential 
to  the  populations.  Each  file  has  extensive  descriptive  comments  at  the 
beginning . 

The  file  EQNFIL  has  189  parts,  one  for  each  PDE.  Each  part  corresponding 
to  a  problem  without  parameters  is  just  the  ELLPACK  statement  of  the  operator, 
domain  and  boundary  conditions  along  with  associated  Fortran  functions.  Each 
part  corresponding  to  a  parameterized  PDE  states  the  values  of  the  parameter; 
the  detailed  statement  of  the  PDE  is  in  the  third  file  MACFIL.  The  entries  in 
MACFIL  are  ELLPACK  statements  of  the  PDE  with  the  points  where  parameters  are 
to  be  inserted  marked  by  &A,  &B,  etc. 


Sponsored  by  the  United  States  Army  under  Contract  Nos.  DAAG29-75-C-0024  and 
DAAG29-80-C-0041.  This  material  is  based  upon  work  supported  by  the  National 
Science  Foundation  under  Grant  Nos.  MCS77-01408  and  I1CS79-01437. 
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REUISED: 


PROGRAM  GENPGM 


RONALD  F.  BOISUERT 
DEPARTMENT  OF  COMPUTER  SCIENCES 
PURDUE  UNIUERSITY 

AUGUST  4,  1978  CREUISED  JANUARY  29.  1979) 


WAYNE  R.  DYKSEN 
DEPARTMENT  OF  MATHEMATICS 
PURDUE  UNIUERSITY 
N0UEM3ER  1.  1979 


GENERAL  DESCRIPTION: 


CENPGM  GENERATES  AN  ELLPACK  PROGRAM  ACCORDING  TO  THE  SPECIFICA¬ 


TIONS  GIUEN  IN  AN  ENCODED  INPUT  STRING. 
PROGRAM  IS  WRITTEN  ON  FILE  PGMFIL. 


ENCODED  ElLPACK  PROGRAMS: 


RESULTING  ELLPACK 


THE  ELLPACK  PROGRAM  TO  BE  GENERATED  IS  ENCODED  AS  FOLLOWS: 


PROGRAM  GENPGM  (TAPE1.TAPE2.TAPE3.TAPE4.  INPUT, OUTPUT, TAPE?,  CENPCM 

$  TAPE8, TAPE9. TAPE10, TAPE5= INPUT  >  TAPES=QUTPUT )  GENPGM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC-ENPCM 

CGENPCM 
CCENPGM 

-  CGENPCM 

PROGRAM  GENPGM  CCENPGM 

-  CGENPCM 

CCENPGM 
CCENPGM 

AUTHOR:  RONALD  F.  BOISUERT  CGENPGM 

DEPARTMENT  OF  COMPUTER  SCIENCES  CCENPGM 

PURDUE  UNIUERSITY  CGENPCM 

AUGUST  4,  1978  CREUISED  JANUARY  29,  1979)  CGENPGM 

CGENPCM 
CCENPGM 

REUISED:  WAYNE  R.  DYKSEN  CCENPGM 

DEPARTMENT  OF  MATHEMATICS  CCENPGM 

PURDUE  UNIUERSITY  CCENPGM 

NOUEMBER  1.  1979  CCENPGM 

CCENPGM 
CCENPGM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCENPGM 

CCENPGM 
CCENPGM 

GENERAL  DESCRIPTION:  CCENPGM 

-  CCENPCM 

CCENPGM 

GENPGM  GENERATES  AN  ELLPACK  PROGRAM  ACCORDING  TO  THE  SPECIFICA-  CCENPGM 
TIONS  GIUEN  IN  AN  ENCODED  INPUT  STRING.  THE  RESULTING  ELLPACK  CCENPGM 

PRCGRAM  IS  WRITTEN  ON  FILE  PGMFIL.  CCENPGM 

CGENPGM 
CCENPGM 

ENCODED  ElLPACK  PROGRAMS:  CCENPGM 

-  CCENPGM 

CGENPGM 

THE  ELLPACK  PROGRAM  TO  BE  GENERATED  IS  ENCODED  AS  FOLLOWS:  CGENPGM 

CCENPGM 

N 1  -N2/N3/N4/N5/NS/'N7/N8/C0MMENT  /  CGENPGM 

CCENPGM 

WHERE  N1  IS  THE  NUMBER  OF  THE  PROBLEM  TO  BE  SOLUED  CGENPGM 

N2  IS  THE  PARAMETER  SET  NUMBER  (IF  ANY)  CGENPGM 

N3  IS  THE  OPTIONS  SEGMENT  NUMBER,  CGENPGM 

N4  IS  EITHER  Ml  OR  Ml, M2  OR  Ml, M2, M3  GIUING  EITHER  A  CGENPGM 

GRID  NUMBER  OR  THE  SIZE  Or  A  2  OR  3  DIMENSIONAL  CGENPGM 

UNIFORM  GRID  RESPECTIUELY,  CCENPGM 

NS  IS  EITHER  Ml  OR  Ml. PARAMETER  LIST,  WHERE  Ml  IS  THE  CCENPGM 

MODULE  NUMBER  OF  THE  DISCRETIZATION  MODULE  AND  THE  CCENPGM 
PARAMETERS  ARE  OPTIONAL  PARAMETERS  WHICH  ARE  TO  EE  CGENPGM 

PASSED  TO  THE  MODULE,  CGENPGM 

NS  GIUES  THE  MODULE  NUMBER  AND  PARAMETERS  Or  THE  CCENPGM 

INDEXING  MODULE  AS  IN  NS.  CCENPCM 

N?  GIUES  THE  MODULE  NUMBER  AND  PARAMETERS  OP  THE  GCENFGM 

SOLUTION  MODULE  AS  IN  MS,  CCENPGM 

N3  IS  THE  OUTPUT  SEGMENT  NUMBER.  CCENPCM 

COMMENT  IS  A  COMMENT  OP  .LE.  50  CHARACTERS.  IF  THE  CCENPCM 

FIRST  CHARACTER  OF  THE  COMMENT  IS  0,  THEN  A  CCENPCM 

SUMMARY  OP  THE  RUN  IS  PLACED  ON  THE  FILE  HEADER.  CCENPGM 

CCENFGM 

THE  PROBLEM  NUMBER  IS  A  FILE  NUMBER  IN  FILE  EDNFIL.  CGENPGM 

THE  PROBLEM,  GRID,  OPTIONS  AND  OUTPUT  NUMBERS  ARE  RECORD  CCENPCM 

NUMBERS  IM  THE  FILES  MACFIL,  GROFIL,  OPTFIL  AND  OUTFIL  RESPEC-  CCENPCM 

TIUELY.  THE  PARAMETERS  NS  AND  N?  MAY  BE  NULL  IF  ND  INDEXING  OR  CCENPGM 

SOLUTION  MODULE  IS  REQUIRED.  THE  PARAMETERS  N3  AND  N3  MAY  EE  CCENPCM 
NULL  IN  WHICH  CASE  THE  FOLLOWING  DEFAULT  SEGMENTS  ARE  USED:  CCENPCM 

OPTIONS.  TIME  S  MEMORY  S  LEUIL=0  CCENPCM 

OUTPUT.  MAX-’J  5  MAX'  20, 20  )-EPR  OR  CCENPCM 

CCENPCM 
CCENPGM 

FILES  USED  BY  GENPGM:  CCENPCM 

-  CCENFGM 

CCENPCM 

FORTRAN  10  LFIT  n:p'BEn3  FOR  THE  F T LE3  '.'"ED  BY  BENFC-M  ARE  CCENF’GN 

ASSIGNED  IM  THE  BLOB.':  DATA  SUSFRjBFA: ;.  THE  PUPPESE  AND  I  ORMAT  OP  CCENFGM 

THESE  ARE  AS  FOLLO,.S:  CCEN.-CM 

CCENPCM 


WHERE 


N1-N2/N3/N4/N5/NS/N7/N3/C0MMENT/ 

N1  IS  THE  NUMBER  OF  THE  PROBLEM  TO  BE  SOLUED 

N2  IS  THE  PARAMETER  SET  NUMBER  (IF  ANY) 

N3  IS  THE  OPTIONS  SEGMENT  NUM3ER, 

N4  IS  EITHER  Ml  OR  Ml, M2  OR  Ml, M2, M3  GIUING  EITHER  A 
GRID  NUMBER  OR  THE  SIZE  Or  A  2  OR  3  DIMENSIONAL 
UNIFORM  GRID  RESPECTIUELY, 

NS  IS  EITHER  Ml  OR  Ml. PARAMETER  LIST,  WHERE  Ml  IS  THE 
MODULE  NUMBER  OF  THE  DISCRETIZATION  MODULE  AND  THE 
PARAMETERS  ARE  OPTIONAL  PARAMETERS  WHICH  ARE  TO  EE 
PASSED  TO  THE  MODULE, 

NS  GIUES  THE  MODULE  NUMBER  AND  PARAMETERS  Or  THE 
INDEXING  MODULE  AS  IN  NS. 

N?  GIUES  THE  MODULE  NUMBER  AND  PARAMETERS  OP  THE 
SOLUTION  MODULE  AS  IN  CIS, 

NS  IS  THE  OUTPUT  SEGMENT  NUMBER. 


COMMENT 


IS  A  COMMENT  OF  .LE.  50  CHARACTERS.  IF  THE 
FIRST  CHARACTER  OF  THE  COMMENT  IS  0,  THEN  A 
SUMMARY  OP  THE  RUN  IS  PLACED  ON  THE  FILE  HEADER. 


THE  PROBLEM  NUMBER  IS  A  FILE  NUMBER  IM  FILE  EDNFIL. 

THE  PROBLEM,  GRID,  OPTIONS  AMD  OUTPUT  NUMBERS  ARE  RECORD 
NUMBERS  IM  THE  FILES  MACFIL,  GROFIL,  OPTFIL  AND  OUTFIL  RESPEC¬ 
TIUELY.  THE  PARAMETERS  NS  AMD  N?  MAY  BE  NULL  IF  ND  INDEXING  OR 
SOLUTION  MODULE  IS  REQUIRED.  THE  PARAMETERS  N3  AND  N3  MAY  EE 
NULL  IN  WHICH  CASE  THE  FOLLOWING  DEFAULT  SEGMENTS  ARE  USED: 


OPTIONS. 

OUTPUT. 


FILES  USED  BY  GENPGM: 


MEN  0  ^ V  S  LEUEL=0 

MAX 1 20, 20 ) -ERROR 


FORTRAN  10  LFIT  nUvBEr'S  FOR  THE  F T LE3  ’.'"ED  BY  EENFC-M  ARE 


ASSIGNED  IM  T  KE  BLOG,-: 
THESE  ARE  AS  FOLLOWS: 


STANDARD  IKPUT 


T::z  ENCOPZD  ELLPACX  PROGRAMS  A?Z  SFZCrF'TD  IN  FFZI  FORMi 

each  isisi  endddzd'frogran  hurt  zzVfi  on  a  ; :z: j  lg  .z  a'd  zaghi 
encgeed  froiram  t;’j3T  contain  seven  clashes. 


EONFIL 


EONFIL  CONTAINS  T!-!Z  I^ZOZiTnilC 
BOUNDARY  AND  FORTRAN  SEGMENTS  OF 


?KZ 


~i  i 


EONFTL  IS  DIUIDID  U?  INTO  (SU3'  FILES  UHICH 

up  into  records  the  files  are  hungered  o»  i,  s 

RECORDS  IIITHIh  tznc:-l  FILE  ARE  SIMILARLY  HUNGERED 
THE  END-OF-FILE  AND  ENO-OF-RZCCRO  ARE  DESIGNATE! 
RESPZ'GTIUELY  (’EOF  AND  'EOF  RESPECTIUZLY  ON  f ION- 


FILE  0  CONTAINS  A  DZSCR IRTISH  OF 


FILES  1, 


it 


EONFIL. 

ATE  THE  ELLPACX  PROGRAM  CCRRESFOMOIMS  TO  FROZ-Z 
RESPECTIUZLY  OF  THE  ELLPACX  PDF  POPULATION.  AS  HZNTIGNE 
FILES  ARE  DIUIDID  INTO  RECORDS  L. I CCH  HAVE  THE  FCLLCUIiSI 


THE  PLRPOEE  AMD  ; 

hi  infer; ifiT ion  n: 

.3  1  9 


SR  GAN 


RECORD  0  CONT.V 
RECORDS  1.  2....  i 


THZ  ELLPACX 
TAM  CHE  OF 
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FCLLO: L'i  S3  FORMATS: 


P.LTEPNATIUI  1: 


LINE  i: 


LINE  1  IS 
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OR  CONTAINS  ZEECRIPTIUI 


TIOil  SOME  OF  liMICM  BECCNE3  A  COMMENT  IN 


PROGRAM.  IF  NON¬ 
IN  13  FORMAT  STA¬ 
GE  THE  FROOLEII  II 
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PfRICTLY  INTO  TKI  GRIP  ZICNZNT  C7  TKI  ”ZvZ",ArZD  ILLPACK  FRCCRf.M. 

for  pcr (ability  pl'p.-dzis.  tki  i.o-j7-"i::od  13  zztieted  dy  the 
fpzzzkzi  o~  a  »->  cdao-o  im  coll  ;;i  i. 


GUT” XL 


out'?'.  contains  xr:zoR;;."i7TG:i  may 

OUTPUT  SZOKZMT  07  TKI  ELLP7CX  PPZZ77K, 


■jzzz)  to  szkipate  7; 


cutfil  is  nxuxrzD  up  i;i73  PZC0PZ3  i ;:-i t c: ;  7.pz  kukzzpzd  o»  1.  2,... 
7 VC.  TUI  EK3-QF-FZC3PD  13  DESIGNATED  07  -ZZP  (’ICR  33  M3N-CEC 
INSTALLATIONS). 

rzcnPD  o  contains  a  biscription  07  r;-:z  plopzzz  and  dpzanizaticn 

37  GU77IL.  RECORD 3  1,  0;  3,...  KAL'Z  TKI  FOLLOMIKS  FERMAT: 

Lir:i  x:  like  i  contains  ti-:i  record  nunezr. 

PZini'liKC  LINES:  TKI  REMAINING  LIKES  07  TKZ  7IC3PD  CONTAIN  TKI 

nivnjT  ozn omit  imacyly  7.3  it  kill  p.rrzxr  in  t;-:i  gikz/y.tid  cll- 
pacx  rpjGP7.ii.  to  specify  on  illraix  ■■'zktii'uxtiz  i  :z>  type  a 


czxtj  :■"! 


K'ZPKATZDN  37  TKI 3  PZZIPD  IS  COPIED 


PiriCTLY  li .VO  TKI  ZUTP'JT  SZZKZNT  07  TKI  GZ.MZZATZD  ZLLP7CX 

p.hzzv.m,  pop  popozoility  pzrpdzzs,  t;-:i  zkd-cf-pzcopd  is 

EITZCftl:)  BY  TKI  F.lIIIiCI  07  Pi  »-»  (DAZ.-i)  IN  ZZLLMN  1. 


NOZATA 


SiZTATA  CONTAINS  7KZ  IN73PKATI3N  NIIIZ3  73  ZIZZZI  INIOBID  ELLPfXK 
P.ZZZZ.ViS  AND  CKZCX  COMPATIBILITY. 

like  i  kas  vxi  kuniir  z~  modules  cnrkdds)  in  is  firkat.  mint 

POLLS'! 1 3  KRKOOO  PAIRS  07  LZKZS.  TKZ  7ZP37  07  IZZi-l  CONTAINS  (3  UMICL'I 
INTEGER  IN  71  'Z  PPM II  !>..,» KRK323  IN  13  FORMAT  770  AN  ILLPACK 
iiOZ'.’LZ  KAMI  STAR  TINS  IN  COLUMN  S.  7KZZZ  GIVI  TKZ  CDRRISPCNDIKCES 
I  ZYKZTN  liZ'Z'JI.Z  KUKZIP3  UZZD  li  I  EKZ0ZZ3  PROZPAKS  77  0  TKZ  NANIS  C" 

I'.’ 7  KZ'-JLZS  TO  ZZ  UZZ3  IN  TKZ  C-ZMZP77Z3  ILL??.  IX  FROORAK.  TKZ  SECOND 
LI  i  iZ  07  TKZ  P7ZP  CON  .'AIMS  A  LIST  07  INEZZIZS  III  OK,  7013  FORMAT 
TKZ  i iODULE  KZ”7ZP3  NAT  CAY  ICNIDIP.TTLY  70.L3',!  TKZ 3  NODULE  IM 
ZLLP.MCX  P7Z  j~.V  i  3 .  7.7'AER  TKI3  SIT  07  LI  ill  3  7KZ.ZZ  Z3  3KZ  LIKZ 

r~  staining  a  oimolz  ivzeier  in  13  format  hoiks  tki  nukzip  cz 
oircnzTizivr modules  ( nobis).  this  is  t.llcned  3?  kpjis  likes 
ip.:.: i  z i ivainind  i  coiviz  munzzr  in  13  fermat  7:0  :s  digits 
7:.  z;:k  .  :z:  cvkn  3  giuikg  mggulz  :;:-;?a;:3Zlivv  itogrmaticm 
czzz  riLiLKz  oiKP.vn. 


-  r  FILES  MUST  ZZ  TZ7' :ZK7.“Z3  3Y  A  SARD 
3  :.n  cilunm  one. 


7.' 211  O' 


-  1 7  t  .—^i  : 

G  ZD  KIRI 

;:;z"zz3 


,  .  J  O  '. 


• .  Z.  J 

-7.Z-rZ3_3Y  CZCP 
•07 17Z3_I Z3:  i-.K! 

T  )  '  \  ~~l 

iZK.or  1  os. 

' -13 1 7  .: ZD  IN  t: 


- -  1  -r; 

.  1  .  . . "I. .  3 


'03  rOPTOTM 


7ZT  )  ^  ’ 


p.TT’ 


Z.  11  .  .  j 


3  737 MAT.  CALLED 
Ti  -~r  v 


CCECPEII 

CZ3 

croc- ci  1 

rOO 

CCEN7C-M 

coo. 

CC  Til"  Ell 

i~  j  i 

CCZIOCN 

0  0  3 

CCEN7CN 

rVr 

CZEKPCil 

y.  ‘ 

{  j 

crzi  :7gn 

-  -  ■  > 

co  -i  io  r ! ; 

,v.‘0' 

cr.i  cm 

_  J 

CCZi.PGii 

c.  .  •  .  ! 

CCZi  OCI1 

1 

CCEN7GN 

CCZKrCii 

/*  0* 

CCIL'CN 

C .  '  f 

CC  J  -CK 

) 

cczi  7 c; : 

^ 

c'Zio:': 

’ 

cczio:  k 

r 

cr  ' 

0.  0  .0 

C»'.  'I  • ; 

L  0  "0  i  7  1 ! ' 

CCZI  "Cl ' 

0..'  ~i 

CLZi.TN 

<.. .  j 

rr  ii  -r ' : 

7. 

ccic-c;: 

; 

rr  ~ ■  * 

(  .  ; 

CC Zf Ti  ;  1 

( .  .  j 

r  r  v‘ . -T  •  ’ 

f.L  j 

cczrocn 

7 

cczkcc;: 

r  ■ 

ccek.-cn 

Cl  ...  :.-c.; . 

; . ; '  ) 

CCZiV-ZN 

7  '  > 

cci  or  n 

cczio*:: 

r.O  5 

CC7:;-C:’ 

7  * 

Cl.-  -..-J s 

L  . 

cc  zi  oci : 

C-  .  .J 

CCZIOCN 

I 

C'  JPCIi 

; 

CCZ'  "HI 

■7'  *: 

C~  V  "Cii 

C.  *  Z:'rC.\  i 

■  7 

L  '  1  1.  t  1 

CL  i 

z 

r  ■: 

r  * 

r  ‘  . ' 

CO  'i'W  '1 

L  ' 

c-. 

CCZI  OCT 

L  L  z.  r.  1  1  ! . 

C  ■ 

Cl  O' 

1  ' ' 

{.  •.  ..t 

L  1  -  .  L 

i.  1 . 

.  3 ^0^2 ‘O  . 

^*1  (Xkt'V  jr,*  'iwixirv  p-- 


r> o d o n n n n n n n n i'j o n n i  rj n 


CLEN 

=  ACTUAL 

LENGTH  OF  ENCODED 

INPUT  STRING. 

c 

PTR 

=  CURRENT 

POSITION  IN  CODE. 

c 

FILE 

=  FILE  CL 

RRENTLY  BEING  PR SC 

ES3ED. 

c 

LINE 

-  CURRAN i 

CARO  FROM  FILE  FT 

LE.  i UECTOR ) 

c 

PTYPE 

=  PROBLEM 

TyPE.  EEC  routine 

CONPMT.  i UECTOR) 

c 

PCHAR 

=  PROBLEM 

CHARACTERISTICS. 

(UECTOR) 

...run  =  ELLPACK  NODULE  HUM3E.?»  I. THERE  ...  15  EITHER  DIS.  IISD.  OR  CENPCM 
SOL.  CENPCM 

...REC  =  RECORD  NUMBER  IN  FILE  ...FIL.  WHERE  ...  NAY  BE  CENPCM 

KOH.O^T.QJT.GRD.  CENFCN 

ALC. . .  =  POINTER  TO  START  ( ALGST)  OR  TO  END  (SLCEI'D)  OF  THE  CENPCM 

METHOD  SPECIFICATION  IN  THE  INPUT  STRING  CODE.  CENPCI1 

DISPAR  =  POINTER  TO  START  OF  DISCRETIZATION  MODULE  PARAMETERS  GENPCM 

IN  THE  ENCODED  INPUT  STRING  CODE.  GENPCM 

COMENT  =  THE  COMMENT  IN  THE  ENCODED  INPUT  STRING  CODE.  (UECTOR)  CENPCN 

FATAL  =  SWITCH  INDICATING  WHETHER  AN  ERROR  HAS  BEEN  DETECTED.  CENFCN 

PROBNO  =  PROBLEM  NUMBER  FROM  EQKFIL,  CENFCil 

RRPARM  =  PROBLEM  PARAMETERS  FROM  EONEIL  (UECTOR).  CENPCM 

CLOBAL 

GLOBAL  UARI ABIES  GLOBAL 

GLOBAL 

INTEGER  EONEIL.  E“DFIL> P'TFIL, QUTFIL, MACFIL, PGNFIL, PARAM, COMMA.  GLOBAL 

S  SLASH.  LP.-PEN.  R.-.-.REN,  E'  ;^'X.  AMP.  E.  ZERO.  ONE,  TWO.  THREE,  SIX,  GLOBAL 

3  MOD!  .All,  D'TfTPE,  UP.LID,  L-..  iEL,  DOT, NULL,  NRMG33,  GLOBAL 

3  NUDCUL,  3T,-.">,  DOLLAR.  HEADER,  DIGIT,  LETTER,  HOD  AT  A » DASH  GLOBAL 

LOGICAL  FATAL  GLOBAL 

COMMON  h  GLOBAL  /  EONFIL, GPDFIL, OPTFIL, O'JTFIL, MACFIL, PGMFIL,  GLOBAL 

3  HEADER,  COMMA,  SLASH,  LPAPEM,  PFAREfl,  BLANK,  AMP,  E,  CLOBAL 

3  COT,  DOLLAR,  STAR,  NULL,  ZERO,  OISE,  TWO,  THREE.  SIX,  CLOBAL 

3  MOD AT A, DASH,  GLOBAL 

3  FAPft: i ( 10,35), NOONAN ( 70, 10 ) , DMTYPEC70,  .15),  GLOBAL 

8  JALI D( 70, 20 ) , I ZEROS ( 15 ) , DIGITC 10 ) , LETTER ( 10 ) ,  GLOBAL 

3  LEUEL,  NRi'iODS .  NUDCOL ,  FATAL  GLOBAL 

CLC1BAL 

DATA  CODIM/400^,ISRTY?E^15a,CHARC/1:-:Ca  CENB-CM 

GENRCil 

READ  TABLE  OF  MODULE  INFORMATION  GENPCM 

CENFCN 

READ  PAST  FILE  DOCUMENTATION  CENr-CM 

CENPCM 

2  PE  AD  f  MQDAT  A ,  3042 )  CHAR  CENFCil 

IF  (CHAR  DASH)  GO  TO  2  CENPCM 

CENrEi'l 

PEADU10DATA, ?0=3)NRM305  CEN'FCM 

IF  (LEUEL  .CT.  WRITE ( G,  2  032)  NPMODS  CENFCN 

DO  5  1=1,  MF-  iODS  GENPCM 

READ( MDQ.-'iTA,  2'i3) )  N,  f  MODNAiKM, !'. ) ,  K  =  1 , 10 )  CENPCM 

ISP1  =  i i  ’■  i  CENFCil 

READ  ( MOD  AT  A,  2033 )  ( UAL T  D  ( HP  1 ,  !C) ,  K=1 , 20 )  CENPCM 

IF  (LEUEL  .LE.  2)  GO  TO  5  GENPCM 

NONZ  =  0  CENPCM 

DO  3  J=1 > 20  CENPCM 

NOMZ  =  riOMZ  i  CENFCil 

IE  (UALID(MPI.IIDNZ)  .LE.  0)  GO  TO  4  CENPCM 

3  CONTINUE  CENFCil 

4  CONTINUE  CENPCil 

WRITE i  6,2033)  M,  (MuDNAiKN,  l< ) » K=i»  10 ) ,  CUALID(N?1 , K) , K=1 , NONZIClNPCil 

5  CONTINUE  CENPCM 

RE AD ( MODAT A, 2023)  IPDIS  CENPCM 

IF  (LEUEL  .GT.  2)  WRITER, 2034)  NRDIS  CENPCM 

DO  10  1=1, NRDIS  CENPCM 

READ (IIODATA,  2031)  N,  :  DMT YPE ( IT, K ) ,  K= 1 ,  NRTYPE )  CENPCil 

UALID(  1,1)  =  II  CENPGM 

IF  (LEUEL  .GT.  2)  I  -’ITE( G,  2035)  N,  (DMTVPZCN, iO , !<=1 , NRTYPE)  GENPCM 

10  CONTINUE  CL NP CM 

UAL  ID  (  1 ,  N°DIS-i-l )  =  0  CENPCM 

CENPCil 

GET  ENCODED  PROBLEM  CENPCil 


FATAL  =  .FALSE. 
WRITE ( G, POO i ) 
CALL  II  'CO'.C '  CODE, 
;:i  rc.i'ti,  ' 

Tr  (CLEM  .EO.  0) 


CODIM, CLEN,P-P) 
SO  0  GDI 


CUT  PRESS'" M 


CENPCM 

301 

CENPCM 

TV  'I 

rS'iPCM 

3FU 

CEi  ;RCi1 

304 

CENPCM 

305 

CENPCM 

J,.  v) 

CENPCM 

307 

GENPCM 

30:0 

CENPCM 

33(3 

CENPCN 

390 

CENPCil 

SOI 

CENPCil 

352 

CENPCM 

393 

GENPCM 

394 

CENPCM 

3Sd 

CENPGM 

3CP 

CENFCil 

307 

CENPCM 

303 

CLOBftL 

1 

GLOBAL 

2 

GLOBAL 

3 

GLOBAL 

4 

CLOCAL 

5 

GLOBAL 

c-; 

GLOBAL 

7 

GLOBAL 

Fj 

GLOBAL 

n 

CLOBAL 

in 

CLOCAL 

1 1 

GLOBAL 

12 

GLOBAL 

13 

GLOBAL 

l  4 

GLOBAL 

is 

CLOBAL 

1C, 

CENB-CM 

4G0 

CENPCM 

401 

CENPCil 

<inp 

CENPCM 

•in  3 

CENPCM 

4C4 

CENPCN 

405 

CENPCil 

4CS 

CENPCN 

407 

CENPCM 

4  OR 

CENPCM 

,  i  r 

CENPCM 

410 

GENPCM 

4  1 1 

CENPCM 

412 

CENFCil 

413 

CENPCM 

4 14 

GENPCM 

4)5 

CENPCM 

4(0 

CENPCM 

^  7 

CENPCil 

418 

CENPCM 

4 1  n 

CENPCM 

4  ;.n 

CENPCil 

4?i 

)  CENPCil 

.h;  o 

CENPCil 

4i  2’i 

CENPCM 

At  p  \ 

CENPCN 

485 

CENPCM 

42o 

CENPCil 

427 

CENPGM 

453 

CENPCM 

483 

CENPCM 

430 

CENPCM 

43  1 

CENPCil 

472 

CENPCil 

433 

CENPCM 

434 

CENPCM 

435 

CENPCM 

43  o 

CENPCi  1 

4  37 

ri .  ri  i 

473 

rt  iiPi 

433 

r.ENTji 

4  ’* '  i 

CEf  1  ii 

A  A  * 

~1  --1 


-‘'fTT.ra'vrai^i 


a  /  1H,,  1H/,  1H( »  1H).  1H  ,  1H£, IHI.IH.,  1H»,  1H5/. 

c  zero,  oni,  t::o,  thru,  sin,  null,  dash 

g  /  i:;o,ihi,ih2,  11-13, ii-:s,3H333» h-i-/, 

G  LEUEL, NUDCOL 

G  /  3,  20/, 

0  niGITC  1),  QIGIT(2), :?IGIT(3), DIGITS  ) , DI3ITC3) , DIGIT(B) , 

G  !jiGIT(7),DIGIT(8),DIGIT(9),DIGITU0) 

G  /II 10, 1111, 1H2, 11-13, 1H4, 11-15, 1HS,  11-17. 1H3, 11-3/, 

G  LETTER ( 1 )• LETTER ( 2 )» LETTER ( 3 )>  LETTER ( 4 ) > LITTER  ( 5 ) » LETTER ( S ) » 

G  LETTER ( 7 ) , LETTER ( 3 ) , LETTER  (9 ) , LETTER ( 1 0 ) 

G  /IH, 0,  H  ID,  1HC,  11-ID,  il-il,  11-17, 1H3,  ll-ll-l,  1HI,  1HJ/ 

end 

SUBROUTINE  INCODE  (CODE, CODIM, CLEN, PTR) 

INCODE  REDDS  TI-IE  ENCODED  ELLPftCIC  PROGRAM  FROM  10  UNIT  5.  THE  INPUT 
IS  ASSUMED  TO  STDRT  ON  0  NEI-1  CDRD  AND  CARDS  ARE  READ  UNTIL  THE 
INPUT  IS  COMPLETE  (I.E.  3  SLOSHES  ORE  FOUND).  TI-IE  UARIABLE  CODIN 
GIUE3  THE  HON  ALLOWABLE  LENGTH  07  TI-IE  INPUT  STRING.  3LANXS  ORE 
SQUEEZED  OUT  07  TI-IE  INPUT  GND  THE  RESULTING  STRING  IS  PLACED  IN 


'ROY  CODE, 


l-IE  LENGTH  07  TI-IE  STRING  IS  THEM  CLEN. 


C  PVR  IS  IHITIOLIZED  TO  1. 

C 

INTEGER  CODZ(430 ) , CODIM, CLEN, PTR 
C 

C  GLODOL  UGRIGBLZS 
C 

INTEGER  E0N7IL, GRD7IL, OPTFIL, 0UT7IL, H0C7IL, 7GMFIL, POROM, CONNO, 

G  SL03I-I,  LPOREN,  RPOREN,  BLANK,  OMP,  E,  ZERO,  ONE,  TUD,  THREE,  SIN, 

G  H0DN0I1,  DMTYPE,  UOLID,  LEUEL,  DOT,  NULL,  N.RMODS, 

G  NUDCOL, STOR, DOLLOR, KE03ER,  DIGIT,  LETTER, NODOTO,  DASH 

LOGICOL  FOTOL 

COMMON  /  GLODOL  /  EQN7IL, GRD7IL,  OPTFIL, Q'JTFIL, M0C7IL, PGflFIL, 

G  HEADER, COMMA, SLOSH, LPOREN, RPOREN, 3LANK, AHP, E, 

G  DOT, DOLLOR, ST OR , NULL , ZERO, ONE, TUO, THREE, SIN, 

G  HOD AT A, DASH, 

G  POROM (10,35), M3DN0M (70,10), DMTYPE (70,15), 

G  UOLID (70, 20) , IZERE3C 15), DIGIT (10), LETTER ( 10) , 

G  LEUIL,NRM3D3,NUDC:L,  FATAL 

C 

PTR  =  1 
IDZGIM  =  1 
•END  =  30 
NSL03M  =  0 
KQNDLK  -  0 
10  CONTINUE 

C  CHECK  IF  INPUT  IS  TOD  LONG 

IF  ( I END  .GT.  CODIH)  GO  TO  GOO 
RZ03C5, 1000)  (CODE( I ) , I=IBZGIN> I~MD) 

IF  (CODI(l)  .EO.  DOLLOR)  GD  TO  500 

CD  20  I-IDZGIN, IEND 

C  IGNORE  DLONKS 

IF  CCjDZ(I)  .EO.  BLANK)  GO  TO  20 
N0N3LX  =  NOMDLK-i-l 
CODE(NDNDLK)  =  CODE(I) 

C  COUNT  SLOSHES 

IF  (CODKi-iDNDLIO  .EO,  SLASH)  NSL03H  =  NELA3H-M 
20  CONTINUE 

ICEGIH  =  N0N3LK-M 

I  EM  3  =  IEZ3IN-:-79 

C  CHECK  IF  INPUT  IS  COMPLE” 

IF  (N3LDZM  .LT.  3)  GO  TO  10 
CLEM  -  MONDLK 

IF  (LEUZL  .GT.  0)  URITK3, 2000)  ( CODE ( I ) ,  1=1 , CLEN ) 

RZTURi  I 
C 

C  END  CF  DATA 

i; 

COO  CONTINUE 
CLEM  =  0 
RETURN 
C 

C  ERROR  IN  INPUT 
C 

GOO  CC.TflNUZ 


CENPGM 

CEHPCH 

CENPGIi 

CEHPCH 

CEHPCH 

CEHPCH 

CENFCH 

CENPGM 

CENPCil 

CEHPCH 

CENPGII 

CENPGII 

CENPGII 

IHCODZ 

INCODE 

INCODE 

INCCDE 

INCCDZ 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

Cl  D^A1 

GLOBAL 

GLOEAU 

GLOCAL 

GLODAL 

GLOBAL 

C-LGDAL 

C-LODAU 

GLODOL 

GLOBAL 

GLOBAL 

GLCEAL 

CLCCOL 

GLOBAL 

GLODAL 

C1  C'PAL 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 

INCCDE 


i  n  n  n  n 


SLftZM,  lpppzn.  ppmzzn.  zlmnx.  z,  zzn,  ere,  r::a,  ticzi.cix. 
;  igonpm.  r;  ?  type.  v.r.j  o  -  *_z  z  o  r  .•  null.  : :?;  ',3:  3 , 

NUDC5L.  JTP.3 >  DOLLteMes:!?, 317 .  LETTER.  NOOPTA.  EMSH 


logicml  r.vn'i. 


Z  ONP I L .-  G.?ZP  I L .  9P7P I U .  CJ7P I L .  M.-.ZP  I L  >  PG1  IP  IL . 

;•.  elder ,  3  3“,;  ;.o ,  glad:-:  >  lpp.zzn ,  r-msen.  2lp.«x. 
ujTf  r :llp .? ,  star . ;  :ull » zer  0 ,  one  ,  tpo  ,  three  .six-, 
r.DS.y.'rt.np.”;!. 

parr;  u  io.  So  > ,  nodup.m :?  0 . 1 0 ) .  or  it  ype  c?  0 , 1 5 ) , 

i.’AL  1 3  (70. 2  r  >  nzs :•  3  a  5 )  >  J 1 3 1  f  ( 1 0 ) .  LETTER  C 1 0 ) , 
LEUEL. NRN033  NVDCOL.PPlTRL 


RZP.D  NEXT  LINZ 


rzi'3(riLE;  10 on)  (linzci ).i=i.go) 
ip  (Lit;zci)  ,za.  dollar)  go  ~a  900 

IP  ( LZCZL  ,3T.  0)  CRITICS. 30 03)  (LINK!).  1=1. SO) 

ir  (pile  .re.  mripid  go  to  soo 
expand  macro  pi top, meters 


10 


50 

55 

S3 

GO 


in  -  i 

OUT  =  0 
CONTINUE 

IP  can  .GT,  GO)  .GR.  (OUT  .GZ.  30))  G3  T9  100 
scon  pc.?  ampersand  (signals  parameter ) 
ip  (limic  m  .za.  roe?)  go  to  so 
GUT  =  O'JT-M 
kl  ire  out)  =  linicm) 
in  =  him 
GO  TO  10 

Kft'JI  A  paramo  e? 

CONTI MUZ 
impi  =  ir:-M 

r>0  55  1=1,10 

isparam  =  i 

IP  (LINZ (IMPI)  .53,  LI7TIRCI))  33  TO  53 
COi-ITIMUZ 

under ined  parameter 

CALL  ERP.ZMDCS.LIMZCMPl)) 

CCNTIN'JZ 
l<  =  1 

REPLACE  DUMMY  PARAMETER  lilTH  ACTUAL  PARAMETER 
CONTINUE 

IP  ((!<  , GT.  30)  .0?,  (PARArKNPAP.SM.X)  ,Z0,  5LANX)) 
CO  TO  30 
CUT  =  CUTM 

ML  INI  (O'JT)  =  pmeaminparam.io 
!(  = 

•~0  TO  30 
CONTINUE 

in  = 

GO  TO  10 


100 

CCNTIMU 

i 

r<i: 

ruRi 

i  Lire  ir 

iTi-i  expanded 

DO 

130  .1=1 
LINK  I) 

,30 

=  D1  a::x 

100 

cor 

IT  I  MUZ 

DO 

IPO  1=1 

i.i:  ;z(  i ) 

.  OUT 

IPO 

CCi 

IT  I  MUZ 

7  j.‘ 

1  PI  1  '1 

.or.  3)  ::,?i 

ooo 

T 

iT  y'.\'SL 

L.  'i  t 

a  -  n 

i i  i 

C30 

^  T.  _ 

■—  .  _  -*  A/N  •  ^ 

pa:  -e'cee 


I 


CLPOOL 

5 

C.LC.DML 

G 

CurrpiL 

7 

CLP  PPL 

G 

r  lcual 

9 

CUC DDL 

10 

CLC'DML 

1 1 

cue: ML 

12 

CLCRAL 

13 

CLCOML 

14 

GLCl’AL 

15 

C'  rZML 

1G 

cztln" 

9 

CZTLN 

10 

GZTLN 

i  i 

GZTLH 

12 

CZTLN 

13 

CZTLII 

14 

CZTLH 

15 

CZTLII 

1G 

CZTLII 

1? 

CZTLN 

*  •n 
l  O 

rZTLN 

19 

CZTLN 

20 

CZTLII 

21 

CZTLII 

20 

CZTLN 

23 

CZTLN 

24 

CZTLN 

25 

CZTLN 

23 

CZTLII 

27 

CZTLII 

23 

CZTLN 

23 

CZTLN 

30 

CZTLN 

31 

CZTLN 

CZTLN 

33 

CZTLN 

34 

CZTLN 

rrrvi  m 

3  3 

GETI.N 

CZTLIi 


CZTLN 

30 

CZTLN 

40 

CZTLN 

41 

CZTLII 

42 

CZTLII 

40 

CITLN 

44 

CZTLN 

<7 

CZTLN 

43 

CZTLN 

47 

C  ZT1.M 

4.0 

CZTLII 

40 

CZTLN 

■;  ) 

CZTMI 

;  i.z 

river 

[’■ ) 

CZT!  II 

*J  > 

cze.it 

c  ^ 

CZT!  M 

i~  ■ 

CZTLN 

TO 

t  ZTLII 

cv 

CZTLN 

r  *  ■’ 

CZTLN 

!'0 

f  ze  :: 

C  ) 

i.  ZTLII 

G1 

CZTLN 

r? 

czeui 

t  .0 

CZTLN 

r ; 

r  ze  1 1 

t  i 

l  ZYLN 

i  ) 

CZTLN 

CZTLII 

i  zv-  ri 

f  0 

i.  0 

i  -e  i: 

(  •;  •  ti 
CZTLN 

V  o 
}  \ 

t  L.. 

1 


c 

GETLN 

72 

EM' 

CETLH 

74 

Ejr.EE’jiiMz  expand  (line, file) 

EXPAND 

1 

r 

EXPAND 

O 

r 

EXPAND  PERFORM 3  THE  IMTTIftLIS.'lTIOKS  PECJIFED  PGR  "HZ  PROCESSING 
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EONFIL  CONTAINS  THE  INFORMATION  NEEDED  TO  GENERATE  THE  EOLATION, 
BOUNDARY  AND  FORTRAN  SEQMENTS  OF  AN  ELLPACK  FRQGRAM. 

EONFIL  IS  DIUIDED  UP  INTO  (SUB)  FILES  WHICH  ARE  IN  TURN  DIUIDED 
UP  INTO  RECORDS.  THE  FILES  ARE  NUMBERED  0,  1,  2, . . .ETC.  AND  THE 
RECORDS  WITHIN  EACH  FILE  APE  SIMILARLY  NUMBERED  0,  1,  2, ...ETC. 

THE  END-GF-FILE  AND  END-OF-RECORD  ARE  DESIGNATED  BY  *EOF  AND  i.’EOR 
RESPECTIUELY  (’EOF  AND  ’EOF  RESPECTIVELY  ON  NON-CDC  INSTALLATIONS). 

FILE  0  CONTAINS  A  DESCRIPTION  OF  THE  PURPOSE  AND  ORGANIZATION  OF 
EONFIL.  FILES  1,  2,  3,...  CONTAIN  THE  INFORMATION  NEEDED  TO  GENER¬ 
ATE  THE  ELLPACK  PROGRAM  CORRESPONDING  TO  PROBLEMS  1,  2,  3,... 
RESPECTIUELY  OF  THE  ELLPACK  PDE  POPULATION.  AS  MENTIONED  ABOUE,  THE 
FILES  ARE  DIUIDED  INTO  RECORDS  WHICH  HAUE  THE  FOLLOWING  FORMAT: 

RECORD  0  CONTAINS  THE  ELLPACK  PDE  POPULATION  PROBLEM  NUMBER. 
RECORDS  1,  2,...  MAY  TAKE  ONE  OF  THE  FOLLOWING  FORMATS: 

ALTERNATIUE  1: 


LINE  1J  LINE  1  IS  EITHER  BLANK  OR  CONTAINS  DESCRIPTIUE  INFORMA¬ 
TION  SOME  OF  WHICH  BECOMES  A  COMMENT  IN  THE  GENERATED  ELLPACK 
PROCRAM.  IF  NON-BLANK,  LINE  1  CONTAINS  THE  PARAMETER  SET  NUMBER 
IN  13  FORMAT  STARTING  IN  COLUMN  IS,  FOLLOWED  BY  THE  PARAMETERS 
OF  THE  PROBLEM  IN  FREE  FORMAT  STARTING  IN  COLUMN  13. 

LINE  2:  LINE  2  CONTAINS  THE  COMPLEXITY  MEASURES  OF  UARIOUS 
PROBLEM  FEATURES  IN  FREE  FORMAT  STARTING  IN  COLUMN  11.  THIS 
INFORMATATION  BECOMES  A  COMMENT  IN  THE  GENERATED  ELLFACK  PRO¬ 
GRAM. 

LINE  3:  LINE  3  CONTAINS  THE  PROBLEM  TYPE  INFORMATION  STARTING 
IN  COLUMN  11  WHICH  IS  USED  TO  test  THE  COMPATIBILIY  OF  THE  PRO¬ 
BLEM  WITH  THE  ELLPACK  ROUTINES  SELECTED  IN  THE  ENCODED  PROGRAM 
(SEE  ROUTINE  COMPAT).  THIS  INFORMATION  BECOMES  A  COMMENT  IN  THE 
GENERATED  ELLPACK  PROGRAM. 

COilPAT  USES  THE  PROBLEM  TYPE  IN^O  (PTYPE)  AND  DISRETIZATION 
MODULE  INFO  (DMTYPE)  TO  DETERMINE  WHETHER  MODULE  DISMOD  IS 
COMPATIBLE  WITH  THE  GIUIN  PDE  PROBLEM.  THE  NRTYPE  (NOW  15) 

ITEMS  IN  THE  ARRAY  PTYPE  AND  IN  EACH  ROW  OF  THE  TABLE  DMTYPE 
HAUE  THE  FOLLOWING  MEANINGS: 

UALUE  PTYPE  MEANING  DMTYPE  MEANING 


0  ITEM  NOT  PRESENT  ITEM  MUST  NOT  BE  PRESENT 

1  ALWAYS  MATCHES  ALWAYS  MATCHES 

2  ITEM  PRESENT  ITEM  MUST  BE  PRESENT 

THE  14  ITEMS  CURRENTLY  CHECKED  FOR  COMPATIBILITY  ARE: 

CONCERNING  THE  OPERATOR 

1  TWO  DIMENSIONAL 

2  THREE  DIMENSIONAL 

3  POISSON  EOUATIOM 

4  LAPLACE  EOUATION 

5  UX  OR  UY  TERMS 

G  CONSTANT  COEFFICIENTS 

7  SELF-ADJOINT  FORM 

3  HOMOGENEOUS 


rucxirururunnnnromcnroronnonnnnrr 


9 


UVY  TERM 


CONCERNING  THE  BOUNDARY  CONDITIONS 

10  PJOICHLET  PROBLEM 

11  S'JilE  NORMAL  DERIVATIVE  CONDITIONS 

12  SOME  MINED  CONDITIONS 

13  HCNOGENEQJS 

CONCERNING  THE  GRID 

14  HX=HY(=HZ) 

15  UNIFORM  GRID 

REMAINING  LINES:  THE  REMAINING  LINES  OF  THE  RECORD  CONTAIN 
INFORMATION  COPIED  INTO  THE  EC'JAT.tON,  BOUNDARY  AND  FORTRAN  SEG¬ 
MENTS  0“  THE  GENERATED  ELLPACK  PROGRAM  IN  THE  ABODE  ORDER. 

THE  EQUATION*  BOUNDARY  AND  FORTRAN  CARDS  ARE  MARLED  BY  A  1.  2, 
OR  3  IN  COLUMN  1  RESPECTIVELY.  NOTE  THAT  FORTRAN  CODE  SHOULD 
BEGIN  IN  COLUMN  7  MS  USUAL  ANn  THAT  A  FORTRAN  COMMENT  CAN  FE 
WRITTEN  3Y  TYPING  A  C  IN  COLUMN  2.  FOR  PORTABILITY  PURPOSES. 
THE  END-OF-REGORD  IS  DETECTED  BY  THE  PRESENCE  OF  A  (DASH) 

IN  COLUMN  1. 

ALTERNATIVE  2: 


LINE  l:  LINE  1  CONTAINS  THE  PARAMETER  SET  NUMBER  IN  13  FORMAT 
STARTING  IN  COLUMN  IS.  FOLLOWED  BY  THE  PARAMETERS  OF  THE  PRO¬ 
BLEM  IN  FREE  FORMAT  STARTING  IN  COLUMN  19. 

LINE  2:  LINE  2  CONTAINS  THE  COMPLEXITY  MEASURES  OF  UARIOUS 
PROBLEM  FEATURES  IN  FREE  FORMAT  STARTING  IN  COLUMN  11.  THIS 
INFORMATION  EECQMES  A  COMMENT  IN  THE  GENERATED  ELLPACK  PRO¬ 
GRAM. 

LINE  3:  LINE  3  IS  OF  THE  FORM  EXPAND  N/N1.N2 . NK/  STARTING 

IN  COLUMN  1.  THIS  SPECIFIES  THAT  MACRO  N  (THE  NTH  RECDRD  IN 

MACFIL)  SHOULD  BE  EXPANDED  WITH  ACTUAL  PARAMETERS  . . NK 

REPLACING  THE  DUMMIES  £.A.&B,  &C.  . .  .ETC.  THE  PARAMETERS  MAY 
CONTAIN  ANY  CHARACTERS  EXCEPT  A  BLANK,  COMMA  OR  SLASH  AND 
MAY  BE  NO  LONGER  THAN  30  CHARACTERS. 

RELATED  FILES'.  CENPGM,  MACFIL.  OPTFIL.  GRDFIL.  OUTFJL  AND  MODATA 


*  EOR 
'EOF 

*  PROBLEM  1  * 

*  ft  ft  «-  ft-  -a  ft  ft-  ft  ft-  ft  ft  ft-  ft  ft 

*  EOR 

•PARAMETER  SET  1(A=0.0) 

*  000.04  00S.05  000.00  00S.05 

*  2000002002002 

1  TWO  DIMENSIONS  S  SELF-ADJOINT 

1  EXP (X«Y)UXXS  +  EXP(-X»Y)UYYS  -  1 ./( 1.+X+YIU3  =  F(X,Y) 

DIRICHLET  3  HOMOGENEOUS 

x=o.  ,  u=o . 

X=l.  ,  u=o. 

Y=0 .  ,  U=0. 

Y=l.  ,  U=0. 

FUNCTION  F(X» Y) 

COMMON  /CONCOiV  PI 
DATA  PI/3. 14133255353973/ 

PX  =  PI*X 
PY  =  PI---Y 
SPX  =  SINfPX) 

SPY  =  SIiNPY) 

EXY  =  EXPfX-Y) 

F  =  .?*>*<  EXY«EXY»3?Y*  '<2,  -r- Y  *y-p  I  )  ft-S  *?  I  Y“COG  tP/.J) 

$  +  PI* SPX* ( /  "-COS ( P Y ) -F I oS^Y ; -ZXV* C?  7/ f  l.+X+Yj  i 
RETURN 
END 

FUNCTION  TPUC/.Y) 

CQMilOII  /CO'  -COM/  PI 

TRUE  =  .75ftE)  R|,X-Y;-3ItRRTftXj.-V'  'P'.'-'j 
RETURN 


>}  u. 


end 

FUNCTION  CDXtKX- Y) 

CD.MJ  -  Y-EXPO>'*Y> 

RETURN 
END 

3  FUNCTION  CDYU(X.Y) 

3  CDYU  =  -XaEXPC-X*Y> 

'J  RETURN 

3  END 

’  EOR 

-PARAMETER  SET  2(A=0.1) 

*  000.04  006.05  000.00  006.05 

EXPAND  i/0.1.-' 

'EOR 

* PARAMETER  SET  3(A=1.0) 

*  000.04  006.05  000.00  006.05 

EXPAND  1/1.0/ 

’EOR 

-PARAMETER  SET  4(A=10.) 

a  000.04  006.05  000.00  O0S.05 

EXPAND  1/10.' 


'EOR 

'EOF 

-  >  -x-  *  -x  x  *  -x  v-  x  *  x 

»  PROBLEM  2  * 

’EOR 

a  000.04  000.00  004.05  010.02 

*  2000200000020 

1  TWO  D I HEMS IONS 

1  UXXS  +  C 1 . +Y*Y)UYYS  -  UX3  -  <1.+Y»Y)UY$  =  FCX.Y) 


2 

NIXED 

2 

X=0.  .  MIXED  =  (l.)U  +  ( 

l.)UX 

=  0.27*EXPCY) 

? 

X=l.  .  MIXED  =  (l.)U  +  C 

-l.)UX 

=  0. 

2 

Y=0.  .  MIXED  =  C 1 . 0 U  +  ( 

1 .  )UY 

=  0.27*EXP(X) 

2 

Y=l.  .  MIXED  =  Cl.  )U  +  ( 

-1. )UY 

=  0.135*CALOG(2.)-1.)*CX*X-X1**2 

3 

FUNCTION  TRUE CX. Y ) 

3 

TRUE  =  0.135*(EXP(X+Y)+(X»X- 

X)**2*AL0G(1.+Y*Y)) 

3 

PETUPN 

3 

END 

3 

FUNCTION  FCX-.Y) 

3  F  =  0.135*(  (-4.»X»X*X+18.»X*X-14.»X+2.)*AL0G(1.+Y*Y) 
3  S  -  2.*((X»X--X)a»2)*(Y*Y+Y»«3+Y-l.)/(l.+Y*Y)  ) 

3  RETURN 

3  END 


’EOR 

’EOF 

a  »  >  e  -x  «•  k  *  x  x  x  *  s  «-  it 

»  PROBLEM  3  * 

’  EOP 

-PARAMETER  SET  l(fi=1.5) 

»  000.43  030.60  000.00  070.40 

EXPAND  3/1.5/ 

’EOR 

=  Pi',RAIiETEP  SET  2:A=2.5) 

a  000.35  030.50  OOn.oO  060.20 

EXPAND  3/2.5/ 

•EOR 

.-■PAPAMITEP  SET  3fA=3.5) 

-•  000.23  070.30  000.00  050.  15 

EXPAND  3/3.5/ 

’  EOP 

-PhPAU 2TER  SET  4'A=4.5) 

a  000.23  055.20  000.00  040.20 

EXPAND  3  -4.5/ 


’EOP 
’  EOF 

a  PROBLEM  4  > 

57 


000.00 


00S.00 


» ggo 

^PARAMETER  SET  1(A=0.0) 
a  000.02  004.00 

*  2020021002002 

1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  *  POISSON 

1  UXX5  +  UVY$  =  S.*X*Y*EXP(X+Y)*(X*Y+X+Y-3. ) 

2  DIRICHLET  $  HOMOGENEOUS 

2  X=0 .  *  U=0 . 

2  X=l.  *  U=0 . 

2  Y=0 .  *  U=0 . 

2  Y=l.  .  U=0 . 

3  FUNCTION  TRUE(X.Y) 

3  TRUE  =  3.*EXP(X+Y)*X*Y«(1.-X)*(1.-Y) 

3  RETURN 

3  END 


’EOR 

^PARAMETER  SET 

*  000.02 

EXPAND  4/0.1/ 
’EOR 

-■PARAMETER  SET 

*  000.02 

EXPAND  4/1.0/ 
’EOR 

-■PARAMETER  SET 

-•  000.02 

EXPAND  4/10./ 


2(A=0. 1 ) 
004.00 


3( A=1 . 0 ) 
004.00 


4(A=10. ) 
004.00 


000.00 


000.00 


000.00 


oos.oo 


oos.oo 


oos.oo 


’EOR 

•EOF 

i-  if  a  it  if  *  ■»  it  if  *  if  if  c-  if  it 

-■  PROBLEM  5  » 

it  it  it  it  a  :t  it  •»  a  *  *  it  -it  a  a 

’EOR 

-^PARAMETER  SET 
a  000.01 

EXPAND  5/0./ 

’EOR 

^-PARAMETER  SET 

a  000.01 

EXPAND  5/5./ 

’EOR 

•^PARAMETER  SET 
a  000.01 

EXPAND  5/8./ 

’EOR 

^PARAMETER  SET 
a  000.03 

EXPAND  5/10./ 

*  CQjO 

^PARAMETER  SET 
a  000.04 

EXPAND  5/20./ 
•EOR 

-PARAMETER  SET 

*  000.03 
EX’PAMD  5  34.  ' 

i  TP-J 

-PARAMETER  SET 

000.03 

EXPAND  5  100. 


1 (A=0. 0 ) 

002.00 

2(A=5.0) 

002.00 

3(A=3. 0 ) 

002.00 

4C A=10 . 0 1 

010.00 

5( A=20 . 0 1 
015.00 

G  C A=34 ■ 0 ) 
030.00 

A  3=100. 01 
040.00 


000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 


oos.oo 

oos.oo 

oos.oo 

oos.oo 

OOS.05 

003.00 

oos.oo 


•i  Mi 

a  ..  ..  f  w  it  s  »  t  a 

-  ivm::!  iti  i;  » 


'  [  It,  ’ 

040.20  000.00  00S.30 

lil;i  t;it002003 

I  I !  !M  !t  iM.  NiilMNS 

!  II  -:  :  ♦  UNY*  CPEFUiN. Y'U5  =  FvX.Y' 

m  •  •  t'i !! :  i  homogeneous 

o.  .  u  o. 
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X=l.  ,  U--0. 
Y=0.  .  U~0 . 


Y=1 .  .  U=0. 

FUNCTION  TRUE(X.Y) 

COMMON  /COHCOM/  PI.  FOURPI 

DOTH  PI.  FOURPI  /3.141592G535S98.12.5G6370G14359/ 
PHI  =  4.»((X-0.5)*»2  +  (Y-0.5)**2) 

T 1  =  5.4  -  COS(FOURPI*X) 

T2  =  SIN(PI«X) 

T3  =  Y**2  -  Y 

T4  =  5.4  -  COS( FOURi ’ISY ) 

T5  =  l./U.  +PHI»«4)  -  0.5 

TRUE  =  -0.31  *  T1  *  T2  «  T3  *  T4  *  T5 


RETURN 

END 

FUNCTION  FCX.Y) 

COMMON  /CONCOM/  PI,  FOURPI 
CFPX  =  COS(FOURPI*X) 

T1  =  5.4  -  CFPX 

T1X  =  FOURPI«SIN( FOURPI »X) 

T1XX  =  F0URPI**2*CFPX 
T2  =  SIN(PI*X) 

T2X  =  PI*COS(PI*X) 

T2XX  =  -PI«*2»T2 
T3  =  Y»«2  -  Y 
T3Y  =  2.*Y  -  1. 

T3YY  -  2. 

CFPY  =  COS ( FOURPI «Y) 

T4  =  5.4  -  CFPY 

T4Y  =  FOURPI -"-SINCFOURP I  *Y) 

T4YY  =  F0URPI**2»CFPY 

PHI  =  4.*(  (X-0.5)**2  +  (Y-0.5)»*2) 

PH I 2  =  PHI*»2 
PH I 3  =  PH I 2-PHI 
PHI4  =  PHI3SPHI 
PHIX  =  8.*(X-0.5) 

PHIXX=  8. 

PHIY  =  8.»(Y-0.5) 

PHIYY=  8. 

TMP  =  1 . /( 1 . +PHI4) 

TNP2  =  TI1P**2 

TMP3  =  TMP2»TMP 

T5  =  TMP  -  0.5 

T5X  =  -4.*PHI3*PHIX»TMP2 

T5XX  =  32.»CPHI3*PHIX)»*2»TMP3  -  12. *PHI2*PHIX**2*TMP2 
S  -  4 .  *  PH  1 3*PHI XX*TMP2 


T5Y  = 
T5YY  = 

$ 

U 

UXX  = 

$ 

$ 

s 

5 

S 

UYY  = 
5> 

S 

2 

£ 

S 

F 

RETURN 


-4.*PHI3*PHIY*TMP2 

32.«(PHI3*PHIY)«*2*TMP3  -  12.«PHI2*PHIY*»2*TMP2 
-  4.*PHI3*PHIYY»TMP2 
T1  «  T2  *  T3  »  T4  *  T5 
T3  «  T4  *  (  T1XX*T2*T5  + 

2.«T1X*T2X»T5  + 

2.«T1X»T2*T5X  + 

T1*T2XX*T5  + 

2.»T1*T2X*T5X  + 

Ti*T2«T5XX) 

T1  *  T2  *  (  T3YY»T4»T5  + 

2.*T3Y*T4Y*T5  + 

2.*T3Y*T4»T5Y  + 

T3*T4YY*T5  + 

2.*T3»T4Y*T5Y  + 

T3«T4«T5YY) 

-0.31  «  (  UXX  +  UYY  -  COEFUCX. Y)*U  ) 


END 

FUNCTION  COEFUCX. Y) 

COMMON  /CONCOtV  PI,  FOURPI 

COEFU  =  100.  +  COSC2.*PI»X)  +  SIN(3.«PI*Y) 


RETURN 


END 


*  EOR 
’  EOF 

PRORLEM  7  * 
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002.10  000.00  000.00  050.10 

2020021002002 

TWO  DIMENSIONS  S  CGNSTANT  COEFFICIENTS  S  POISSON 

UXXS  +  UYY5  =  1. 

DIRICHlET  3  HOMOGENEOUS 


2 

X=0.  . 

U=0 . 

p 

X=l.  , 

u=o . 

2 

Y=0.  . 

u=o . 

2 

Y=l.  , 

u=o . 

3 

FUNCTION  TO 

!UE(X,Y) 

3 

DINENSION 

XBC4),  YB  ( 4 )  >  A3(4) . 

3 

DATA  N/16/, 

NZ3/4/,  NA/2/. 

S  X3( 1 )  • YB( 1 ) •  XB( 2) . YB( 2) »  X3C3),YB(3).  XB(4).Y3(4) 

S  /  0.*  0 . i  1  • ,  0.#  1 . .  1 • t  0 . •  1 . / » 

$  A3  /  -2.35S.  -0.735.  0.735.  2.356/ 

DATA  C 

$  /  . 14S3G42607553E+00,  . 2000000 12525SE+01 ,  . 10000000E292SE+01. 

$  -. 2S33SG23207E3E-0 1 . -. 945037933SS7SE-03.  . 4338951S755S6E-05, 

3  . 23341 15-iS0351E-05.  .31330S30E2144E+00, -.31330990S2144E+00, 

$  . 31330S30G2144E+00. -. 31330S30S2144E+00/ 

DATA  PI/3. 14153235353379/.  TUDRI/S .233! 3530717359/ 

0PB5CX.Y)  =  S3RT(X»X  +  Y*Y) 

RCST  =  X  -  0.5 
RENT  =  Y  -  0.5 
R  =  DABS (RCST,  RSNT) 

SUM  =  R*R/4. 

L  =  1 

SUM  =  SUM  +  C(L) 

RKCSKT  =  1 
RKSISKT  =  0 
DO  1  K=1 , N 

TEMP  =  PCST*RKCSKT  -  RSNT*RKSNKT 
RKSNKT  =  RSNT*RXCS:<T  +  RCST*RKSNKT 
RKCSKT  =  TEMP 

IF  (CK.GT.2)  .AND.  (MODCK. 4) . NE. 0 ) )  GO  TO  1 
L  =  L+l 

SUM  =  SUM  +  C(L)*RKCSKT 
1  CONTINUE 


3 

DO  2  I 

=1 , NZB 

3 

ZR 

=  X  -  XB( I ) 

3 

ZI 

=  Y  -  YB( I ) 

3 

MR 

=  OABSCZR,  ZI) 

3 

IF 

(UR  .NE.  0.)  UR 

3 

HI 

=  0ARG(ZR,  ZI) 

3 

IF 

(HI  .GT.  A3( I ) ) 

3 

TR 

=  ZR--UR  -  ZI-UI 

3 

TI 

=  ZR-HI  +  ZI -UR 

HI  -  TNORI 


L  =  L+l 

SUM  =  SUM  +  C(L)*(ZP*TI  +  ZI-TR) 

2  CONTINUE 
TRUE  =  SUM 
RETURN 
END 

REAL  FUNCTION  OAPGCX,  Y) 

OfiRG  =  0 

IF  ( (X.HE.O. )  .OR.  (Y.NE.O.))  OARG  =  ATANH(Y.X) 

RETURN 

END 


*  PPODl.EM  3  * 

’EOR 

'-PARAMETER  SET  Kft=0.1) 

3  000.32  070.30 

EXPAND  0/0.1/ 

’EOR 

-  PARAMETER  SET  2<’A=0.1j) 
»  000.33  030,40 

EXPAND  0/0.15/ 

,rOR 

£ PARAMETER  SET  3 '0=0. 35) 


000.00  050.40 


000.00  030.50 
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•Eor 

a  :  :•  a  a  a  a  a  a  a  a  a  a  a  a 

a  PROBLEM  11  * 

“■a-;:-::  : a  a  a  aaa  a  a  * 

*  EOR 

•PARAMETER  SET  1(A=PI) 
a  000.10  006.25 

EXPAND  11  /PI/ 

•  eor 

•PARAMETER  SET  2(A=2*PI) 
»  000.14  00S.35 

EXPAND  11/2.  •PI/' 

’EOR 

“PARAMETER  SET 

*  000.15 
EXPAND  11/3.*PI/ 

•EOR 

•PARAMETER  SET 

•  000.22 

EXPAND  11/5. *PI/ 

’EOR 

a PARAMETER  SET 
a  000.2? 

EXPAND  11/10.*PI/ 


3(A=3«PI) 

006.40 


4(A=5*PI ) 
006.60 


5CA=10*PI) 

006.75 


000.00 


000.00 


000.00 


000.00 


000.00 


006.25 

006.25 

006.40 

006.60 

006.75 


’EOR 

’EOF 

a a  a  a  a  a  a  a  a  a  a  a  *  * 

a  PROBLEM  12  * 

a  a a  a  a  a  a  a  a  a  aa  aa 

’  EOR 

“PARAMETER  SET  1(A=PI,  B=PI ) 

•  000.05  006.10  000.00  006.10 

EXPAND  12/3. 14159265353973. 3. 14159265353979/ 

’EOR 

a PARAMETER  SET  2(A=PI,  B=10.0) 

•  000.12  006.30  000.00  006.30 

EXPAND  12/3.14159265358979,10./ 

’EOR 

•PARAMETER  SET  3(A=10.0,  B=PI) 

•  000.12  006.30  000.00  006.30 

EXPAND  12/10., 3. 14159265353979/ 

’EOR 

aPARl-.NETER  SET  4(A=20.0,  B=PI) 

»  000.22  006.60  000.00  006.60 

EXPAND  12/20. , 3. 14159265353979/ 

’EOR 

•PARAMETER  5ET  5(A=10.0,  B=10.0) 

»  000.12  006.30  000.00  006.30 

FXPAND  12/10., 10./ 

’EOR 

•■PARAMETER  SET  6(A=10.0,  B=20.0) 

=•  000.22  006.60  000.00  006.60 

EXPAND  12/10., 20./ 


’FOR 

’EOF 

PROBLEM  13  a 

■:  :aaaaaa  aa 

n 

a  000,43  090.90  000.00  030.25 

a  2000002002’'00 

1  TWO  DIMENSIONS  S  SELF-ADJOINT 

1  COEFi (X, Y)UXX5  +  UYYO  =  F'X.Y) 

2  DIRICHLET 

?-  X=0.  ,  U=TPUE(X, Y) 

2  X=l.  ,  U=TRUE(X,Y) 

2  1=0.  ,  U=TRUE(X, Y ) 

3  Y=l,  :  U=TRUECX, Y) 

FUNCTION  COEFi ( X, Y) 

3  COEFI  =  2. 

3  IF  (  X.LT..4  )  COEFI  =1. 

3  PE TURN 

3  END 
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3  FUNCTION  F(X,Y) 

3  FX1  =  X  +■  3 

3  FX2  =  .7  +’.5*(X-.4)  +  (X-. 4)**2/( 1+X»X) 

3  DYYG  =  ( Y*Y-G.*Y+7. )*EXP(-Y) 

3  IF  CFX1  .GT.  TX2)  GO  TO  1 
F  =  DYYG-'FXl 
3  RETURN 

3  1  DXXH  =  (U.G*X+1.G8)*U+X*X)«*2 

3  $  -(.8»X«X+1.G8*X-.3)*4.*X*(1.+X*X)) 

3  $  /(l.+X*X)**4 

3  G  =  1.  +  ( Y— 1 . )*»2»EXP( -V) 

3  F  =  C0EF1(X,Y)*DXXI-I«G  +  FX2«DYYG 

3  END 

3  RETURN 

3  END 

3  FUNCTION  TRUE (X.  Y) 

3  FX2  =  .7  +  .  5-  ( X- . 4 )  +  (X-.4)**2/(l+X«X) 

3  TRUE  =ftMINl(X+.3.FX2)»(l.+(Y-l. )**2*EXPC-Y) ) 

3  RETURN 

3  END 

3  FUNCTION  CDXU(X.Y) 

3  CDXU  =  0. 

3  RETURN 

3  END 

3  FUNCTION  CDYU(X.Y) 

3  CDYU  =  0. 

3  RETURN 

3  END 


’  EOR 
’EOF 

-■  it  a  s  i>  it  a- it  it  <■  "■ » 

*  PRODLEN  14  * 

a  a  v  -»  it  a  *  a  x-  «ssa»* 


’EOR 

* PARAMETER  SET  1(A=0.01) 
*  000.28  045.05 

EXPAND  14/0.01/ 

’EOR 

-PARAMETER  SET  2(A=0.1) 
000.34  0S0.05 

EXPAND  14/0.1/ 

’ECR 

-PARAMETER  SET  3(A=1.0) 

»  000.39  065.10 

EXPAND  14/1.0/ 


0G0.05 


070.05 


075.10 


045.05 


060.05 


055.10 


’FOR 

’EOF 


x-  a  --t  i  :•  « it  x  a  x  x-  sits 

>“■  PROBLEM  15  * 


-PARAMETER  SET  1 (0=0.2.  B=1.5,  C=0.1) 

-  000.28  035.00  000.00  070.00 

EXPAND  15/. 2. 1.5. 0,1/ 

'EOR 

-PARAMETER  SET  2(A=1.0.  B=2.5,  C=0.1) 

000.17  050.00  000.00  050.00 

EXPAND  15/1. .2,5. 0.1/ 

’EOR 

PARAMETER  SET  3(A=0.2,  3=1.5,  C=0.0 4) 

-•  000.27  030.00  000.00  070.00 

EXPAND  15/. 2. 1.5.0.04/ 

'■  EOR 

-PARAMETER  SET  4<A=0.2,  B=2.5,  C=0.04) 

000.15  040.00  000.00  050.00 

EXPAND  15/. 2. 2. 5. 0.04/ 


EOR 

’EOF 

■■  PROBLEM  15  * 

’FOR 

"PARAMETER  SET  1(3=1.) 


run. 03 


000.00 


015.30 


*  007.10 
EXPAND  IG'1.1./ 

’  EOR 

-PARAMETER  S ET  2(B=10.) 

*  007. OS  010.03  000.00  010.15 

EXPAND  16/2. 10. / 


'  EOR 
’EOF 


a  PROBLEM  17  * 


’EOR 

-PARAMETER  SET 
■*  000.03 

EXPAND  17/1.,2.' 

•  FQO 

■PARAMETER  SET 
a  000.20 

EXPAND  17 -5.. 3.  ' 
’  EOR 


1 ( A=1 . 0*  B=2. 0 ) 

002.20  000.00 


2 'P-5. 0>  B=3 . 0 ) 
010.50  000.00 


•-■PARAMETER  SET  3(A=3.0.  3=5.0) 

-•  000.45  040.30  000.00 

EXPAND  17-'3. .  5.  / 


010.15 


020.40 


080.70 


’EOR 
’  EOF 


a  :> 


»  PROBLEM  13  a 


’EOR 

-PARAMETER  SET 
»  000.07 

EXPAND  13/ 1 . .  2 .  / 
’EOR 

^PARAMETER  SET 
a  000.  11 

EXPAND  13/5.. 3./ 
’EOR 

-PARAMETER  SET 
*  000.32 

EXPAND  13/3.. 5./ 


1 (A=l , 0.  B=2. 0) 

010.10  000.00 


2(A=S.0,  B=3. 0 ) 

010.20  000.00 


3( A=3. 0.  B=5. 0) 
010.70  000.00 


010.10 

020.15 

070.40 


’ECR 

’EOF 

a  a  *  a a-  a  a  a  a  a  a  a  *  a 
a  PROBLEM  13  a 
a  a  -a  a  *  *  a  a  a  a  a  a  a  a 

’LOR 

“PARAMETER  SET  1CA=0.15) 

»  003.15  070.10  000.00 

EXPAND  13/0.15/ 

’EOR 

“PARAMETER  SET  2(3-0.25) 

a  003.17  030.10  000.00 

EXPAND  13/. 23/ 


005.05 

00S.05 


’EOR 

’EOF 

*  PROBLEM  20  * 

a  a  a a  a  a  a  a  i  a  a  s-  a  a  a 

’EOR 

“■PARAMETER  SET  irA=0.0) 
a  007.23  040. SO 

EXPAND  20/0./ 

’  COR 

“PARAMETER  SET  2T.A=10.) 

“■  007.23  040.  SO 

EXPAND  20/10./ 


000.00 

000.00 


010.30 

010.30 


’  COP 
’EOF 

a  PROBLEM  21  « 
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U)  CjJ  U>  U)  U)  W  (a)  OJ 


i'P 


3 

3 

3 

3 

3 

3 

3 

i 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


033.03  010.20  000.00  O0S.10 

20000000'52nno 

TWO  DIMEIoiONS 

hi.:.  yiJM-'S  +  BIX.  YMJXYS  +  C(X,Y)UYY$ 
DIPICHlFT 

K-O.  ,  IJ=TRUE  i  X.  V) 

N.:i.  .  U=TPUE  (  X.  Y ) 

Y-0 .  .  U-TPUE  ( ;<»  Y) 

Y  - 1 .  ,  U=TPUEl X. Y ) 

FUNCTION  fUX.Y) 

A  =  1.  *  TRUEX'X.  V)«*2 

PE  fUPN 

END 

FUNCTION  BCN.Y) 

3  =  -2.*TRUEXiX.Y)*TRUEY(X,Y) 

RETURN 

END 

FUNCTION  CCX.Y' 

C  =  !.  +  TPUEVi X. Y)*»2 

RETURN 

END 

FUNCTION  TPUEXCX.Y) 

TRUEX  =  EXP(X+Y) 

RETURN 

END 

FUNCTION  TPUEY(X.Y) 

TEUEY  =  E  XP(X+Y) 


rcx.Y) 


RETURN 

END 

FUNCTION  F(X.Y) 

TUXX  =  EXPCX+Y) 

TUXY  =  TUXX 
TUYY  =  TUXY 

F  =  PCX. Y)«TUXX  +  BCX.Y)*TUXY  + 

RETURN 

END 

FUNCTION  TRUE (X* Y ) 

TRUE  =  EXPlX+Y) 

RETURN 

END 


C(X,Y)*TUYY 


’FOR 

•EOF 

■-  8  8  ii  >:•  •  8  if  8  * 

8  PROBLEM  22  * 
■■EOR 


1 

p 

3 


3 

3 


i 


i 


3 

3 

3 

) 


003.31  030 . 35  000.00 

2000200002000 

TWO  DIMENSIONS 

IKX.  YJUNN-j  +  t-!(  X.  YJUYVS  + 

UY(X»Y)UY5  -  F(X.Y) 

DIRICH1.  ET 

>-0.  .  U=TRUECX.Y) 

X=l.  .  U=TPUE <r-tV) 
t- 0.  ,  U=TR'JE(X.  V) 
i—  1,  .  U-.RUiCX.  F  ) 


004.05 


WX(X, Y)UX5 


FUNCTION  IPX. Y) 

I'O  ViOil  /CONOO'I'  C«.C2 
CTr.'i  Cl.  02'  17.00.  3. 52' 

F 1  =  (XpX-1.  )«(Y8Y-1. ) 
p;, 'FI  =  2.  'X--  c  V-pY-I  .  ) 

.  F  |  r_  i  .  J':;2.  "7 

!;;;  =  n' -  P'/Fl  +  C2  ■' ! OXr  1  * ( X»X+Y*Y ) 
i  ■>  -  fi.  Y.'Fl  C2 p-DYP  1* ( X«X+Y*V ) 
•  -  +  N.'-UY) 


+  C2*r 1’2.*X 
+  C2»F1«2.*Y 


i F  <  ,  ry.  .0023'  i  =  10.4'fl  +  23S. 


•  PL  t 
t  : 

F"‘  '  f  I  ’!  '<  X.  YJ 

fi'Y  .  -re,.  '  r:\  ■  C1.F2  , 

r-  .  r  N  i  .  -1.) 


25 


U)OJLJU)LJLJ«>JWU)L>JUJCOUJLJUJLJ(AJbJt>JLJwjUJCJU;UJLJU)C>JUJU)LJUJUiUJOJUlLoOjLJUJi.>j 


DXFl  =  2. »X® f Y*Y-1 . ) 

DYF 1  =  (X*X-1. )*2.»Y 

UX  =  Cl -DXFl  +  C2*DXF1»(X*X+Y*Y)  +  C2*F1*2.*X 
UY  =  C1*DYF1  +  C2*DYF1*CX«X+Y*Y)  +  C2»F1*2.«Y 

DXXF1  =  2 . - ( Y»Y-1 . ) 

DYXF1  =  4 . -X-Y 

UXX  =  C1*DX>,F1  +  C2*DXXF1«(X*X+Y*Y)  +  C2*DXF1*2.*X  + 
S  C2*DXF1«2. “X  +  C2«F1«2. 

UYX  ■=  C1-DYXF1  +  C2*DYXF1*(X*X+Y*Y)  +  C2»DYF1*2.*X  + 
5  C2-DXF 1  ■■3 .  »Y 

ft  =  S0R7( UX*UX  +  UY*UY) 

UX  =  0. 

IF  (ft  .GT.  .0025)  UX  =  -19.4*CUX*UXX  +  UY*UYX)/A**3 

RETURN 

END 

FUNCTION  UYCX.Y) 

UY  =  UX(Y.X) 

RETURN 

END 

FUNCTION  TRUE(X.Y) 

COMMON  /CONCOM/  C1.C2 
FI  =  (X-X-l. )»(Y*Y-1. ) 

TRUE  =  Cl -FI  +  C2*F1*(X*X+Y*Y) 

RETURN 

END 

FUNCTION  F(X.Y) 

COilNCN  /CONCOM/  C1.C2 
FI  =  (X*X-1. )«(Y«Y-1. ) 

DXFl  =  2.  -X--(  Y*Y-1 .  ) 

DYF 1  =  (X«X-1. )*2.*Y 

UX  =  C1»DXF1  +  C2-DXF 1 * C  X»X+Y*Y )  +  C2*F1*2.»X 
UY  =  Cl -DYF 1  +  C2*DYF1*(X*X+Y«Y)  +  C2*F1*2.*Y 
DXXF1  =  2. Y*v-1 .  ) 

DYYF1  =  (X*X-1.)»2. 

UXX  =  C1--DXXF1  +  C2  - DXXF  1»  ( X*X+Y*Y )  +  C2«DXF1*2.«X  + 
S  C2*DXF1*2.«X  +  C2*F1*2. 

UYY  =  C1»DYYF1  +  C2*DYYFla(X*X+Y*Y)  +  C2»DYF1*2.*Y  + 
S  C2*DYF1*2. *Y  +  C2»F1«2. 

F  =  U(X. Y)«(UXX+UYY)  +  UX(X,Y)»UX  +  UY(X.Y)*UY 

RETURN 

END 


’  EOR 
’EOF 

«■ ::  a  a  a  *  a  -a  a  •»  a 

FRODLEM  23  * 

i  w  «  ii  w  5  -It-  II  v H 

-PARAMETER  SET  1(A=387.75.  B=50.0. 

003.47  0S0.70  020.00 

EXPAND  23/337,75.50.. 1.0.10/ 

’  EOR 

-PARAMETER  SET  2(A=554.5,  B= 0.554, 
-■  009.50  070.30  020.00 

EXPAND  23/554.5.  .544.  1,0.10/ 

’ECR 

-PftRftMETER  SET  3(ft=337.75,  B=50.0. 
-•  009.52  030.30  020.00 

EXPAND  23/337. 75. 50. ,2, 0.15/ 

’  ECR 

-PARAMETER  SET  4CA=S54.5,  B=0.554, 
-■  009.52  030,30  020.00 

EXPAND  23/554.5, .544.2.0. 15/ 

’  FOR 

PARAMETER  SET  5(A=337.75,  B=E0.0. 
-•  009.53  035.30  020.00 

EXPAND  23^337. 75, SO. .3. 0.20/ 

’  EDI? 

•-PARAMETER  SET  G(A=554.5,  B=0.554, 
-  009.53  035.35  020.00 

EXPAND  23/554.5, .544,3,0.20/ 


’EOF 


■  PROD!  FM  21  a 


C=l,  D=0 . 10 ) 
070.30 


C=l,  D=0.10> 
070.60 


C=2,  3=0.15) 
070.30 


C=2,  D=0 . 15) 
070.30 


C=3,  D=0 . 20 ) 
070.30 


C=3.  D=0.20) 
070.30 
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•eor 

-PARAMETER  SET  1(6=0.25,  B=100.,  C=-0.10) 

*  007. 13  015.10  005.00  015.30 

EXPAND  24/0.25. 100. .-0.10. 1/ 

*  EOR 

«PARAMETER  SET  2(6=0.25,  B=1000..  C=-0.10) 

«  OOP. 09  015.10  005.00  010.15 

EXPAND  24/0. 25. 1000. ,-0.10. 2/ 

'EOR 

-PARAMETER  SET  3(6=0.50,  B=l.«  C=-0.01) 

»  OOP. OS  015.10  005.00  005.00 

EXPAND  24/0.50. 1.. -0.01. 3/ 

'EOR 

-PARAMETER  SET  4(6=0.50.  B=10.,  C=-0.10) 

*  OOP. 07  015.10  005.00  010.00 

EXPAND  24/0.50, 10.. -0. 10,4/ 

’EOR 

-PARAMETER  SET  5(A=1.00,  B=l.,  0-0.10) 

*  007.05  015.10  005.00  000.00 

‘-’XPAND  24/1. 00,  1. .-0.10, 5/ 

EOR 

-PARAMETER  SET  G(A=1.00,  B=10.,  0-0.10) 

*  007.07  015.10  005.00  010.00 

EXPAND  24/1.00. 10. .-0.10.6/ 

’EOR 

-PARAMETER  SET  7(6*1.00,  B=100.,  C=-l .00 ) 

«  007.14  015.10  005.00  015.37 

EXPAND  24/1.00, 100. ,-1.00. 7/ 

’EOR 

-PARAMETER  SET  8(6=1.00,  B=1000.,  C=-1.00> 

*  007.10  015.10  005.00  010.20 

EXPAND  24/1.00, 1000., -1.00, 8/ 


’EOR 

’EOF 

a  a  a  a  a  a  a  a  a  a  a  a  a  a  a 

-•  PROBLEM  25  « 

a  a  a  a  a  a  a  a  a  a  a  a  a  a  a 

’EOR 

-PARAMETER  SET  1(6=1.51 

*  000.19  0S5.40  000.00  006.05 

EXPAND  25/1.5/ 

’EOR 

-PARAMETER  SET  2 (6=2. 5) 

-•  000.14  055.20  000.00  006.05 

EXPAND  25/2.5/ 

’EOR 

-PARAMETER  SET  3 (6=3. 5) 

*  000.12  045.15  000.00  00S.05 

EXPAND  25/3.5/ 

’  EOR 

-PARAMETER  SET  4(6=4.51 

*  000.11  035.20  000.00  0^5.05 

EXPAND  25/4.5/ 


t-Uix 

’EOF 

a  a  •; :  a  a  a  a  a  a  a  a  a  a  a 

*  PROBLEM  26  * 

a  a  a a  a  a  a  a  *  a  a  a  a  a 

’EOR 

-PARAMETER  SET  1(6=11 

--  007.03  010.00  000.00  005.02 

EXPAND  26/1., 1/ 

’EOR 

•^PARAMETER  SET  2(6=51 

•:»  007.04  010.00  000.00  010.02 

EXPAMD  26/5., 2/ 

’  EOR 

-PARAMETER  SET  3(6=10) 

«  003.04  010.00 


000.00 


013. a2 


000.00 


050.40 


r 


<*  PROBLEM 

X  #  w  H  ■£•  i>  i>  ■ 

•ED? 


■SfUin-a 


27  » 


s  007.13  015.03 

»  20002.1O00P002 

1  T!  43  DiivNSiONS 

!  L'VS?  f  (1.- :  ;:-?iUYYS  +  (2,/X)U ”3  +  E(X.Y)UY$  =  -’O'1. 


p 

DIRICH! 

.ET  S  HOMOGENEOUS 

p 

X=.  1  , 

u=o . 

D 

X  =  1 .  . 

u=o. 

P 

Y=.  1  , 

2=0. 

p 

Y=1 .  . 

11=0 . 

3 

PUNCH  HU  TRUE(X.Y) 

3 

REEL  D2RUS1 

.(G),  GRIDC20).  TABLE (20, 20 ) • 

3 

S 

TIBI ( 100 ) >  T1B2UOO),  T1B3U09).  T134UOO) 

3 

EOUIUALENCi 

(table  a. 

1 i  .  T1B1( 1 ) ). 

3 

s 

UhBlE(  1, 

6)  ,  TiB2iin, 

3 

s 

<  Ti-:3'_EU, 

11)  .  T  ’  B3> 11), 

3 

s 

(  TABLE  i  1. 

16  i  ,  T 1 34  r 1 j ) 

3 

DATA  NCR TO 

N37-93.-'20. 

20/ 

3 

DHTrt  GRID- 

0.  i 00 0  000, 

0.1473334,  0.19472 

33.  0.2421053, 

3 

0. 2394787 . 

0. 3333-121 

0.3342105.  0.43157 

39,  0.4789474, 

3 

SO . 55S3153 • 

0.5r323-'2. 

0 . 321 0523,  0.SS34211,  0.7157335, 

3 

SO . 7631579. 

0.3105233, 

0.357334 

3,  0 . S052532,  0.9526316, 

3 

3 

1 .0000000/ 

3C 

3C 

APPROX  I  tin  7; 

SOLUTION 

OF  PROBLEM  USING 

3C 

3C 

3 

5-POINT  STAR  20  X  20  GRID) 

DATA  TIBI/ 

.000000, 

.000000, 

.000000, 

.000000,  .000000, 

3 

S 

.000000. 

.000000, 

.000000, 

.000000, 

.000000,  .000000, 

3 

s 

.000000. 

.000000, 

.000000, 

.000000. 

.000000,  .000000, 

3 

$ 

.000000. 

.000000. 

.000000, 

.000000, 

.831365,  1.59BB11, 

3 

s 

2.331137, 

3.033375, 

3.343034, 

4. 576355, 

5.244113,  5.821652, 

3 

s 

S . 2S0333* 

6. 535470, 

G. 741719, 

6.638443, 

6.447540,  5.974205, 

3 

s 

5.267140. 

4.313752, 

3, 124975, 

1.523172, 

.000000,  .000000, 

3 

s 

.212529. 

.234310, 

.561946, 

.745076, 

.923333,  1.104637, 

3 

$ 

I • PSSS^l * 

1.407139, 

1.5193SS, 

1.533333, 

1.634250,  1.G259E8, 

3 

s 

1.5S7710, 

1.455309, 

1.23742-5, 

1.050524, 

.774514,  ,427493, 

3 

s 

.000000, 

.000000, 

.552663, 

1.000754, 

1.461024,  1.933419, 

3 

3 

2.411748, 

2.8E32S4, 

3.236324, 

3.642325, 

3.S3S533,  4.133EB8, 

3 

s 

4.225039, 

4. 137475, 

4.033403, 

3,741501. 

3.235544,  2.692630, 

3 

s 

1.943547, 

1.045257, 

.000000, 

.000000. 

.473224,  .856504, 

3 

3 

1 . 2512S5, 

1.S53357, 

2.055712, 

2.453312, 

2.313739,  3.130717, 

3 

s 

3.372439, 

3.550301, 

3. G31353, 

3.611042. 

3.473332,  3.223649, 

3 

s 

2.346377, 

2.333002, 

1.691723, 

.312354, 

.030000/ 

3C 

3 

DATA  T1B2/ 

.OOOOOn, 

.464137, 

.340552, 

1.227614,  1.627875, 

3 

3 

2.028334, 

2.45.4235, 

2 . 727737 * 

3.07-5216, 

3.322010,  3.433031, 

3 

3 

3.572533, 

3.5550S1. 

3.4557,33, 

3. ’73470. 

2.207439,  2.303741, 

3 

3 

1. 5712.13, 

.902337, 

.  "  00000. 

.030000* 

.^5p331*  .323554* 

3 

S 

1.205333, 

1.523324. 

1.23  ‘-55, 

2. 377323. 

2.724141.  3.026327, 

3 

5 

3  *  2 ( 2 1 33 » 

3.4-.  .323, 

3.77-770* 

3.502550, 

3.334333.  3.143234, 

3 

3 

2.777309, 

2 .  '’•333  OH* 

1.532372, 

. 77pw37* 

.900000,  .oonooo, 

3 

5 

.445503, 

.203307, 

1.173574, 

1.57/331, 

1.331335,  2.324591, 

3 

3 

2.G53757, 

2.223359, 

3.210423, 

3.373329, 

3.434340,  3. 45.2336, 

3 

3 

3.  33303, 

3.033227, 

2.742003, 

2.7-3  30, 

i.  333713*  *C3o75S* 

3 

5 

.000000, 

.000000, 

« • S3* 

.752752. 

1.144237,  1 .513847, 

3 

s 

1.333234, 

2.250549, 

2 • 737  jo 1  * 

2.325073, 

3.130535,  3.233491, 

3 

5 

3. 335145, 

3.372303, 

3  - r 37 332* 

3.042015, 

2. £35453.  2.221455, 

*3 

3 

1 .  G 1 5  ”b  7 , 

.  7  s  z  ? 2  > 

.7,00000. 

.  01  000, 

.415-113,  .75-3404, 

3 

3 

1 .  107502, 

l.-;3?205. 

1  ./.SSIOP, 

2.  1 73-325. 

2.505541,  2.734171, 

3 

3 

3.  023203, 

3.  ‘154 3, 

3. "33331, 

3.25 '077, 

3. 13 ■ 342,  2.SS7S5S, 

3 

3 

2 . 63; 321 , 

2.173300, 

1.533775, 

.231033, 

.000000/ 

3C 

3 

3f;T;'i  T  i  7  3 

.  000. 

,334735, 

.  71  =  39! . 

1.043  437,  1.3915.84, 

j 

3 

.  '2  1 

2  -  .573, 

2.25:373, 

2. 3.7  i  735, 

2.500:31,  3.0GCE51, 

3 

3 

3.  •  -'327, 

3.  •  7)310, 

2.  5"2235, 

2. 5':3T43,  2.111385, 

3 

~ 

’  ^  *3  •  r_  —  ~  ~  ^ 

.  ''  1  1  ■>, 

.  0  0 000, 

.000000, 

.383313,  .  C-60D77 , 

3 

•  •  1  '  •  ’ .!  * 

i  .  ~  2  ? . 

1 . 35  ‘>'73, 

1.23523 3, 

2. "35151.  2.921753, 

3 

2.7.- 

3 . 7 

2 .  ”  J . 303? 

3.  0  '.37.33, 

2.3:3554.  2.751741, 

3 

.5 

2  .  *• .  <  ‘  i  <  ' 

2.7  ,  4  -: , 

1  •  f  •  J  ^  »  2j  * 

."’7734, 

.000000,  .oooono, 

P 

3 

-  ■  ",  r.  ;•  j  , 

,  7  \  7  r .  3  * 

.3-33 19, 

1.504453, 

1.5/>?717,  1 . 0/3544, 

"3 

3 

2. '  03  73, 

3  •  •.  0  1 f;  '7  3  ♦ 

2. j2‘ 314. 

2.710315, 

2.305333,  2.32- '704. 

S 

2.7E2054, 

2.600729, 

2.33^121, 

1.943103, 

1.432513, 

.786636, 

3 

5 

.000000. 

.000000, 

.203-05, 

.554349. 

.313334, 

1.086018, 

.5 

$ 

1.363342. 

1 .636051 . 

1.333333, 

2. 123705. 

2.334039, 

2.475758, 

3 

£> 

2.571273, 

2.600023, 

2.551104, 

2.413333, 

2.1' 5232, 

1.825479, 

1.352757. 

.747003, 

.000000. 

.000000, 

.237135, 

.483919, 

CJ 

.710355, 

.943555, 

1.1C-IS03. 

1 . 43657 1 , 

1 . 633473, 

1.876015, 

Z 

2.056026. 

2. 197396, 

2.230763, 

2.326371, 

2.253903, 

2.182323, 

S 

1.973744, 

1.673420, 

1.245394, 

.ESS 174, 

.000000/ 

3" 

DATA  T1B4/ 

.000000, 

.223254, 

.404271, 

.594571, 

.795868, 

3 

S 

1.002731, 

1.203231, 

1.405230, 

1.536414, 

1.744135, 

1.870977, 

3 

s 

1 . 9d37G8, 

1.333052, 

1.932543, 

1.833903, 

1 . 733364, 

1.481378, 

3 

s 

1.118459, 

. S304G3. 

.000000, 

.000000, 

.174435, 

.315761, 

3 

s 

.465007, 

.623554, 

.  7372S7, 

.350332, 

1.103399, 

1.255644, 

3 

$ 

1 . 3853S3. 

1.432031, 

1.569477, 

1 .610632, 

1.607397, 

1.552498, 

3 

s 

1 . 433466, 

1.237622. 

.943177, 

.544003, 

.000000, 

.000000, 

3 

s 

. 120325, 

.213604, 

.322333, 

.433139, 

.543030, 

.683693, 

3 

$ 

.776212, 

.331823, 

.  97GS02, 

1.05S454, 

1.11S337, 

1.15339S, 

3 

s 

1.160107, 

1.130432, 

1.05S12S, 

.325341, 

.723318, 

.426737, 

3 

$ 

.000000, 

.000000, 

.062593, 

.113172, 

.167151, 

.225042, 

3 

s 

.235452, 

.346533, 

.406606. 

.463546, 

.515437, 

.560198, 

3 

3 

.595592, 

.619121, 

.627831, 

.613239, 

.  5SoS95» 

.523407, 

3 

3 

.420324, 

.253423, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

S 

. OOOOOO, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

S 

.000000, 

,000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3 

. 000000. 

.000000, 

.000000, 

.000000, 

.000000/ 

3C 

3C  INTERPOLATE  NUMERICAL  SOLUTION  BY  QUADRATICS 

3C 

3  CALL  OU ADRD ( X , Y , T ABLE . GR I D . OR I D, NCR I D , NCR I D , NGRDD . NGRDD , DERUSL ) 
3C 

3  TRUE  =  DERUSL(G) 

3C 

3  RETURN 

3  END 

3  FUNCTION  E(X.Y) 

3  E  =  l./CTANCY)**3*X**2) 

3  RETURN 

3  END 


’  EOR 
'EOF 

•aaaaaaa  a  ■*  a  a  a  a  a 

»  PROBLEM  23  * 

*■>**■-  *tf---aa*-»att* 

’EOR 

-PARAMETER  SET  1(A=1.) 

*  008.03  000.00  005.00  007.03 

EXPAND  23/1. ,  1/ 

•EOR 

= PARAMETER  SET  2(A=10.) 

-  003.05  000.00  005.00  010.15 

EXPAND  23/10., 2/ 

’EOR 

-PARAMETER  SET  3( A=  100 . ) 

»  003. OG  000.00  005.00  010.22 

EXPAND  23/ 100.. 3/ 


’EOR 

’EOF 

a  PROBLEM  23  a 

*  £Pp 

-PARAMETER  SET  Hft=-3. ) 

a  003.13  030.05  000.02  010.02 

EXPAND  23/-3..1/ 

'  EO° 

-PARAMETER  SET  2(0—1.) 

»  003.13  030,05  000,00  010.00 

EXPAND  23/- 1., 2/ 

’EOR 

•-■PARAMETER  SET  3CA=1.) 
a  003.13  030.05 

EXPAND  23/1., 3/ 

’EOR 


000.00 


010.10 


'-PARAMETER  SET 
-  008.21 
EXPAND  29 '3.. 4/ 

*  EOR 

^PARAMETER  SET 

008.20 

EXPAND  29/5.. 5/ 


4( A=3. 1 
090.05 


5(A=5.  ) 
090.05 


000.00 


000.00 


010.20 


010.15 


’EOR 

’EOF 


»  FROBLEM  30  * 

’EOR 

-PARAMETER  SET  1(A=1.0,  B=8.0,  C=-1.0) 

S'  000. IS  010.40  000.00  010.35 

EXPAND  30/1. . 3. .-1./ 

’EOR 

s PARAMETER  SET  2(A=1.0.  B=2.0,  C=0.5) 

O  000. OS  006.10  000.00  00S.15 

EXPAND  30/1 . >  2. i 5./ 

'EOR 

-PARAMETER  SET  3(ft=23.0,  B=2.0,  C=1.0) 

»  000.19  030.30  000.00  030.25 

EXPAND  30^23. ,2. .1.' 

’EOR 

«  PARAMETER  SET  4(A=10.0,  B=U.O,  C=0.0) 
s-  000.13  010.30  000.00  015.25 

EXPAND  30/10., 11., 0./ 

’EOR 

^PARAMETER  SET  5(A=100.0,  B=2.0,  C=2.0) 

»  000.19  030.30  000.00  030.25 

EXPAND  30/100. ,2. ,2./ 

’EOR 

^PARAMETER  SET  G(A=10.0,  B=4.0,  C=1.0) 

«■  000.13  010.30  000.00  015.25 

EXPAND  30/10. , 4. ,1./ 

’EOR 

^PARAMETER  SET  7(A=4.0,  B=5.0,  C=~0.5) 

«  000.10  00S.25  000.00  010.20 

EXPAND  30/4. ,5. .-0.5/ 

’EOR 

^PARAMETER  SET  8(A=3.0,  B=G.O,  C=2.0) 
a  000.10  OOB.25  000.00  008.25 

EXPAND  30/3., G.,  2./ 

’EOR 

^PARAMETER  SET  9(A=0.5.  B=3.0,  0=10.01 
a  000.09  006.20  000.00  00S.20 

EXPAND  30/.5.3., 10./ 


’EOR 

’EOF 

*  -x-  a  *  «  s  *  «  »  *  *  s 

*  PROBLEM  31  * 

x-  -3  z-  ttfiasc-  *  * 

’EOR 


»  003.04  002.00  004.08  00S.05 

«  2020021000020 

1  TWO  DIMENSIONS  S  CONSTANT  COEFFICIENTS  $  POISSON 

1  UXXS  +  UYYS  =  -1. 

2  MIXED 

2  X=-l .  ,  MIXED  =  (1.1U  +  C-1.1UX  =  TRUECX.Y)  -  DUXCX.Y) 

2  X=  1.  ,  MIXED  =  (1.1U  +  C  1.1UX  =  TRUE(X.Y)  +  DUXCX.Y) 

2  Y=-l.  ,  MIXED  =  (1.1U  +  C-1.1UY  =  TR’JE(X.Y)  -  DUYCX.Y) 

P  Y=  1.  .  MIXED  =  C1.)U  +  (  1.1UY  =  TRUECX.Y)  +  DUYCX.Y) 

o  FUNCTION  TRUE(X.Y) 

3  COMMON  /COMCOM/  A0.A2.A4.AS 

3  DATA  A0.A2.A4.AS  /.8215S4, -. 0144, . 0000433. -. OOOOOOS4/ 

3  X2  =  X-X 

3  X4  =  X2S-X2 

3  XS  =  X4*X2 

3  XO  =  XG---X2 

3  X10=  X8«X2 

3  X12=  X10*X2 

3  Y2  =  Y*Y 
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r 


!  3 

i  3 

3 

i  3 

3 

j  3 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


Y4  =  Y2*Y2 
YG  =  Y4*Y2 
YG  =  YG*Y2 
Y10=  Y8*Y2 
Y12=  Y10*Y2 

TRUE  =  -.25*(X2+Y2)  +  AO  +  A2*(X4-E . *X2*Y2+Y4) 

$  +  fl4*(x8-28.*XG*Y2+70.*X4*Y4-28.-"X2*YG+Y8) 

$  +  AS*(X12-6G . *X10*Y2+495. *X8*Y4-324. *XG*Y6+ 

5  485 .  *X4'-fY3-6S .  «X2*Y  1 0+Y 12 ) 


RETURN 

END 

FUNCTION  DUX(X.Y) 

COMMON  /CONCOtV  A0.A2.A4.AG 

X2  =  X*X 

X3  =  X*X2 

X5  =  X3*X2 

X7  =  X5»X2 

X9  =  X7*X2 

XI 1=  X8*X2 

Y2  =  Y*Y 

Y4  =  Y2*Y2 


YG  =  Y4*Y2 
Y8  =  YG*Y2 
Y10=  Y8*Y2 

DUX  =  - . 5*X  +  A2*(4.*X3-12.*X*Y2)  + 

$  A4*C8.*X7-168.*X5*Y2+230.»X3*Y4-5G.*X*Y6)  + 

$  AS* (12 . *X1 1 -GGO . *X9*Y2+38G0. »X7»Y4-5544 . *X5*YG+ 

$  1980. *X3*Y8- 132. *X*Y10 ) 


RETURN 

END 

FUNCTION  DUY(X.Y) 
DUY  =  DUX(Y.X) 
RETURN 
END 


I 


I 


’EOR 

’EOF 

»»■»*»«**»»»**** 
*  PROBLEM  32  * 

’  EOR 


000.00  010.15 


009.07  010.05 

2000200002002 
TWO  DIMENSIONS 

UXX$  +  UYY$  +  3./(5.-Y)UY$  =  F(X.Y) 

DIRICHLET  $  HOMOGENEOUS 
X=- . 5  ,  U=0. 

X=  .5  .  U=0. 

Y=-l.  .  U=0. 

Y=  1.  .  U=0 . 

FUNCTION  TRUECX.Y) 

DATA  A.B  /. 0010185. .0004838/ 

TRUE  =  ( 1  ,-Y»Y)“(  1 .-4.*X*X)*C5.~Y)**3*CA+B9Y) 

RETURN 

END 

FUNCTION  F(X.Y) 

DATA  A.B  /. 0010135. .0004833/ 

7  =  A-A*Y*»2+B*Y-B*Y**3 
0  =  l.-4.»X»»2 
T  =  5.-Y 
T2  =  T*T 
T3  =  T2*T 

UXX  =  -3.*Z*T3  „  „ 

UY  =  0*((B-2.»A*Y-3.*B*Y**2)*T3  -3.*Z*T8) 

UYY  =  0*( (-2.*A-G.»B»Y)*T3  -  S. »(B-2. «A»Y-3. *B*Y**2)*T2 
$  +  S.»Z*T) 

F  =  UXX  +  UYY  +  3./(5.-Y)*UY 

RETURN 

END 


’EOR 

’EOF 

*  PROBLEM  33  * 

x  x  i: »  «  *  «  *  ««««**  > 
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CJ  CO  CJ  UJ  CJ  10  U)  CJ  Cd  CJ  GJ  PJ  HJ  UJ  HJ  fU  »-*  *—  #  *  -  *  *  #  -  -  l  GJCdGJGJGJGJCdGJCdCdGOGJGJGJCdCdGJGJGJCdCJCdCOCdGJGjGjGJGJLdCdCdCdCdCdCdGJtuiUrorurd 


[a] 


*  003.11  005.20  000.10  005.25 

»  2020021002000 

1  TOO  DIMENSIONS  S  CONSTANT  COCFFICIENTS  $  POISSON 

1  LXX5  *  UYY5  =  F(X.Y) 

□IF ICHLET 

X=  o.  •  U=TRUE(X>  Y) 

X=  1.  .  L=7RUE(X,Y) 

Y=-l.  .  U=TRUE(X,Y) 

N=  1.  .  U=TRJE ( X. Y ) 


FUNCTION  TRUE ( X.  Y ) 

S133 

=  SORT  C i 33 . ) 

Kl  = 

SORT t 14.+S133) 

K  2  = 

SORT i 14. -SI  33 ) 

A  =  ( 

-7. +S133 ) ' ( 2. -3133) 

3  =  C 

-7.-S133 )*A  15. 

EK  IX 

=  EXP(K1»X) 

FI  2X 

=  EXP(K2»X) 

EDIFF 

=  El'  IX  -  EK2X 

r"  *  — 

A- ED  IFF  +  EK2X 

F2  = 

B -ED  IFF 

S  21  = 

1 .  -  Y---Y 

TRUE 

=  Y21-(F1  +  Y21*F2) 

PETU2 

END 

N 

FUNCTION  FfX.Y) 

S133 

=  SORT; 133. ) 

Kl  = 

SORT  i.  14.  -•'-SI 33 ) 

K2  = 

SORT! 14.-S133) 

A  -  ( 

-7.+S133)/(2.*-S133) 

3  =  C 

-7.-S133)«A/15. 

EK  IX 

=  EXP(KloX) 

e;  2x 

=  EXPf  K2--X) 

EDIFF 

'  =  FK 1X-EK2X 

FI  = 

A--EDIFF  +  EK2X 

F2  = 

B --EDIFF 

Y21  = 

1 .  -Y  ---Y 

DEK1X 

=  K1«K1«EK1X 

DEK2X  =  K2»K2«EK2X 
DEDIFF  =  DIK1X  -  DEK2X 
DDF1  =  A*DEDIFF  +  DEK2X 
DDF  2  =  3 --DZD  IFF 
UXX  =  Y21*(DDF1  +  Y21 *DDF2) 

UYY  =  -2.*tFl  +  2 . » ( 1 . -3 . * Y*Y ) »F2 ) 

F  =  UXX  +  UYY 

RETURN 

END 


EOR 

EOF 

PPOBLEM  34  » 

>  -  «  *  *  <■  x  r  x  x 

EOP 

003.03  002.01  000.01  006.05 

2020021002000 

TWO  DIMENSIONS  O  CONSTANT  COEFFICIENTS  $  POISSON 

UXXS  +  UYY$  =  -1. 

DIRICHLET 

X=-l.  .  U=TRUE(X.Y) 

X=  1.  .  U=TRUE(X. Y) 

Y=-l.  .  U=TRUE(Xr  Y) 

Y=  1.  .  lJ=TRUE(Xi  Y) 

FUNCTION'  TPUE(X.Y) 

X2  =  X»X 
X4  =  X2--X2 
XG  =  X4-X.2 
XO  =  XE-X2 
V2  =  ' 

74  =  V2--Y2 
YG  =  Y4---Y2 
Y3  =  YS-Y2 

TRUE  =  0.235775  -  .25»0<2+Y2)  + 

$  f-14<7G.*',X4-G.«X2-->Y2+Y4)  + 
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U>  U)  U)  U>  LO  U)  LO  LJ  LJ  to  LO  LU  LO  OJ  IU  Rj  UJ  |IJ  OJ 


429. *( X3-23.  *X5»Y2+rO .  *X4»Y4-28.  *X2*Y6'-Y8)  V319424 


return 

run 


..  *  «•  S  if  it  M  w  #  i 

-POBlEM  35  -■ 


’  f.  0;  ’ 


-PARAMETER  SET  lffl-0.0) 

*  009.11  002.00  000.10  006.50 

*  2022021202000 

1  Tl!0  DIMENSIONS  S  CONSTANT  COEFFICIENTS  $  POISSON 

1  LAPLACE 

1  UX'X$  +  UVY$  =  0. 

DIRICHLET 

/=-!.  ,  U=TRUE ( X,  Y) 

X=  1.  .  U=TRUE(X.Y) 

Y=-l.  .  U=TRUECX.Y) 

Y=  1.  ,  U=TRUECX,Y) 

FUNCTION  TRUECX.Y) 

X2  =  X*X 
X4  =  X2*X2 
XS  =  X4*X2 
XO  =  X6--X2 
Y2  =  Y*Y 
Y4  -  Y2-Y2 


YE  =  Y4»Y2 
Y3  =  Y6-Y2 

U1  =  X4  -  S.«X2*Y2  +  Y4 

02  =  X3  -  23. *XS*Y2  +  70.*X4*Y4  -  28.*X2*Y6  +  Y8 

TRUE  =  1.1733  -  . 1801«U1  +  .00S*U2 

RETURN 

END 


’  EOR 

-■PARAMETER  SET 

*  009.11 
EXPAND  35'O.t' 
•EOR 

•PARAMETER  SET 

*  009.11 
EXPAND  35 ' 1.0- 
’EGR 

*PAPhMETEP  set 
003.11 

EXPAND  35--10./ 


2( A=0. 1 ) 
000.00 


3tA=1.0) 

000.00 


4(A=10.  1 

000.00 


000.10 


000.10 


000.10 


006.50 

006.50 


006.50 


’  EC° 

’EOF 

PROBLEM  36  » 


’  EOR 

■-PARAMETER  SET  1(A=0.0,  B=0.0) 

003.23  093. EO  000.00  006.05 

EXPAND  36/0. 0,0. Ox 
’  FOR 

PARAMETER  SET  2' 0=0.1,  B=-0.5) 

*  006.23  030.25  000.00  010.15 

EXPAND  36/0.1, -0.5/ 

’  EOR 

--PARAMETER  SET  3(0=0. 0,  E=1.0) 

•:-  007.43  100.45  000.00  100.50 

EXPAND  26/0.0.1.0/ 

’  EGR 

-PARAMETER  SET  4 ( A=0.5,  B=0.0) 

*  006.  EM  030.25  000.00 

EXrj,iND  35 '0.5, 0.0/ 


•  £  QR 

’  rnp 


pp.'1"’!  r;i 


005.00 


000.00 


002.10 


•EOS 

a 

*  003.0?  010.20 

*  2000000022000 

1  TWO  DIMENSIONS 

1  A(X,Y)UXX$  +  B(X»  Y1UXYS  +  C(X,Y)UYY$  =  F(X,Y1 

2  DIRICHLET 

2  X=0 .  .  U=TRUE(X,Y1 

2  X=l.  .  U=TRUE( X. Y1 

2  Y=0 .  .  U=TRUE(X.Y) 

2  Y=1 .  »  U=TRUE(X,Y1 

3  FUNCTION  fl(X.Y) 

3  A  =  1.  +  TRUEXtX. Yl**2 

3  RETURN 

3  END 

3  FUNCTION  B(X.Y) 

3  B  =  -2. *TRUEX(X>  Y ) *TRUEY(X. Y1 

3  RETURN 

3  END 

3  FUNCTION  C(X,Y) 

3  C  =  1.  +  TRUEY( X. Y 1 **2 

3  RETURN 

3  END 

3  FUNCTION  TRUEX(X.Y) 

3  TRUEX  =  (2.*(X-3.»Y1  +  (X-3.*Y)**21*EXP(X-Y1 

3  RETURN 

3  END 

3  FUNCTION  TRUEY(X.Y) 

3  TRUEY  =  (~S.«(X-3.*Y1  -  (X-3.*Y1**21*EXP(X-Y1 

3  RETURN 

3  END 

3  FUNCTION  F(X,Y) 

3  EXMY=  EXP(X-Y) 

3  XN3Y=  X-3.*Y 

3  UXX  =  (2.  +  4 .  «XM3Y  +  XM3Y**21*EXMY 

3  UXY  =  (-G.  -  8. *XM3Y  -  XM3Y**21*EXMY 

3  UYY  =  (18.  +  12. *XM3Y  +  XM3Y«*21»EXMY 
3  F  =  A(X,Y)*UXX+B(X,Y)aUXY+C(X.Yl*'JYY 

3  RETURN 

3  END 

3  FUNCTION  TRUE(X,Y1 

3  TRUE  =  (X-3.*Y)»*2»EXP(X-Y1 

3  RETURN 

3  END 


’  EOR 
•EOF 


«  PROBLEM  33  » 

a  a  a  a  a  a  a  a  a  -a  a  a  a  a  a 


•EOR 

■^PARAMETER  SET  1(8=1.01 
»  000.09  000.00 

EXPAND  38/1.0/ 

’  EH!? 

-PARAMETER  SET  2(8=3.01 

*  000.13  000.00 

EXPAND  38/3.0/ 

•EOR 

-PARAMETER  SET  3(8=7.01 

*  000. 23  000.00 

EXP8ND  33/7.0/ 


000.20 

000.30 

000. GO 


008.25 


010.40 


0i5. 80 


’EOR 

•EOF 

X-  X'  X"  X-  If  -5  v  v  X  X  X*  w  *X 

a  PROBLEM  39  * 


TOR 

■-■PARAMETER  SET  1(B=0.50. 
*  005.23  090.10 
EXPAND  33/1.0.50/ 

TOR 

-PARAMETER  SET  2(B=1.00. 
a  005.22  090.10 
EXPAND  33/2.1.00/ 


H(X1=1/X1 

000.00 


H(X1=1/X) 

000.00 


010.25 


010.20 


44 


•  EOR 

“PARAMETER  SET  3(B=0.25, 
-  005.05  010.05 

EXPAND  33/3,0.25/ 

’  EOR 

-PARAMETER  SET  4CB=0.50. 

*  005.05  010.02 

EXPAND  33/4,0.50/ 

’FOR 

-PARAMETER  SET  5(B=1.00, 
“  005.05  010.02 

EXPAND  33/5,1.00/ 


H(X)=EXP(X) ) 

000.00 


H(X)=EXPCX) ) 

000.00 


H(X)=EXP(X) ) 

000.00 


010,10 


010.10 


010. 10 


’  EOR 
’EOF 

•::•»>”■«■***-*«*•***** 

*  PROBLEM  40  * 

w  a  8,-n«i{„e, 

’FOR 

-•PARAMETER  SET  1(A=0.5,  B=0.5) 

“  000.10  010.08  010.08  015.10 

EXPAND  40/0.5,0.5/ 

’EOR 

PARAMETER  SET  2(A=0.15,  8=0.85) 

5  000.13  010.08  025.10  015.10 

EXPAND  40/0.15,0.85/ 

’EOR 

“PARAMETER  SET  3(A=0.85,  B=0.15) 

*  000.03  010.08  005.08  015.10 

EXPAND  40/0.85,0.15/ 


’EOR 

’EOF 

aaaeaeaaaaaaaaa 

*  PROBLEM  41  » 

aaaaaaaaaaaaaa* 

'FOR 

-PARAMETER  SET  1(A=-10.0,  B=S) 

-  000.02  002.02  000.00  008.04 

EXPAND  41/-10.0.5/ 

’EOR 

“PARAMETER  SET  2(A=1.0,  B=10) 

*  000.02  002.02  000.00  008.04 

EXPAND  41/1.0,10/ 

’EOR 

“PARAMETER  SET  3(A=-10.0,  B=25) 

“  000.02  002.02  000.00  008.04 

EXPAND  41/-10 . 0,25/ 


’EOR 

’EOF 

*  a  *  a  --  >  <  a  --  s-  a  a 

*  PROBLEM  42  * 

•»  «  it*  -X  w w -X-  55  X- -X' X  Of 

’EOR 

“PARAMETER  SET  1(A=0.0,  B=1.0,  C=1.0) 

*  000.04  000.00  000.02  010.10 

EXPAND  42/0.0, 1.0, 1.0/ 

’EOR 

“PARAMETER  SET  2(A=-1.0,  B=2.0,  C=2.0) 

*  000.05  000.00  000.05  010.15 

EXPAND  42/-1. 0,2. 0,2.0/ 

’EOR 

■'■PARAMETER  SET  3(A=-1.0,  B=2.0,  0=5.0) 

*  000.03  000.00  000.10  010.30 

EXPAND  42/-1. 0,2. 0,5.0/ 


’EAR 

’EOF 

::  “  .-:;:aeaaaa£»aa* 

«  PROBLEM  43  » 


000. 03  000.00  000.00  005.04 

2000220300020 


■l‘o 


1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  S  HOMOGENEOUS 

1  UXX5  +  UW$  +  UXS  =  0. 

2  MIXED 

2  X=0.  ,  U=0 . 

2  X=3.  14159235353379  ,  MIXED  =  C1.)U  +  (-l.)UY  =  G(Y) 

2  Y=0 .  ,  U=0. 

2  Y=3. 1415R2G5353979  ,  U=0. 

3  FUNCTION  TRUE(X.Y) 

3  DATA  PI,  S 303/3. 14159255358979*  1 . 11803393375/ 

3  TRUc  =  EXFi rPI-X)/2. )»SINH(S5G2*X)«SIN(Y)/SINHCS502*PI) 

3  RETURN 

3  END 

3  FUNCTION  SINh'(X) 

3  EX?X  -  EXPCX) 

3  sinh  =  o.5*(Expx-i./expx) 

3  RETURN 

3  END 

3  FUNCTION  G(Y) 

3  G  =  SIN ( Y >  -  COS( Y) 

3  RETURN 

3  END 


’  EOR 
’EOF 

a  *  a  *  a  a  a  a  a a  a  a *  > 
*  PROBLEM  4 4  * 
a  » a a  x-  a  a  *  a a  a  a  *  a  * 

'EOR 


•PARAMETER  SET 

1 ( A=1 .425, 

=  1,  C 

:=.50, 

D=2) 

a 

003.03 

010.03 

000. 

00 

005.02 

EXPAND 

44/1.425, 1 

,  .50,2,  1/ 

’  EOR 

•PARAMETER  SET 

2( A=10 . 0, 

B= 

1,  c= 

.50, 

D=2 ) 

* 

003.03 

010.03 

000. 

00 

005.02 

EXPAND 

44/10.0, 1. 

.50,2,2/ 

’EOR 

•PARAMETER  SET 

3(  A=1 . 425, 

B= 

=2,  C 

=  .04, 

D=25) 

* 

008.02 

010.03 

000. 

00 

000.00 

EXPAND 

44/1.425,2 

,  .04,25,3/ 

’EOR 

•PARAMETER  SET 

4 (A= 1.425, 

B= 

-2,  C 

=  .50, 

D=2) 

* 

003.02 

010.03 

000. 

00 

000.00 

EXPAND 

44/1.425,2 

,  .50,2,4/ 

’EOR 

’EOF 

*  a  •“  *  *  a  a  a  a  a  a  a  a  a 

*  PROBLEM  45  * 

a  a  a  a  a  a  a  a  a  a  a  a  a  a  a 

’EOR 

'“•PARAMETER  SET  1(A=2,  B=l) 

*  003.03  003.03  005.00  000.00 

EXPAND  45/2. ,1,1/ 

*  EOR 

-PARAMETER  SET  2(P.=  1000,  B=L) 

*  003.14  003.03  005.00  010. BO 

EXPAND  45/1000. , 1,2/ 

’EOR 

-PARAMETER  SET  3(A=2,  B=2) 

*  008.03  003.03  005.00  000.00 

EXPAND  45/2., 2, 3/ 


’EOR 

’EOF 

*  PROBLEM  43  a 
’  EOP 

“PARAMETER  SET  1 ( A=1 . ,  B=2.1 

»  003.05  000.00  000.00  010.20 

EXPAND  43/1., 2.. 1/ 

’  EOR 

-PARAMETER  SET  S< A=4.,  B=2. ) 
a  003. OG  000.00  000.00 

EXPAND  4G/4. , 2. , 2/ 

’  EOR 


010,25 


MU  i: 


•PARAMETER  SET  3(n-l..  "-'.0.1 

003.0?  0  )0.0:.'  000.00 

E'E-ano  .<G  4. .  10..3 - 


m_ter  set  t..  b=2.  > 

003.0 .3  0)0.00  000.00 

::<i  ooo  -is  3.  .2.  .4 


010.30 

010.3? 


’  EC” 


»  PROBLEM  4?  a 
’  EOR 

"PARAMETER  SET 
■»  000.44 

EXPAND  47/3. / 
’EOR 

•PARAMETER  SET 
*  000.34 

EXPAND  47  5. - 

1  eor 

•PARAMETER  SET 
»  000.27 

EXPAND  47- 7. • 


1 ( A=3. 0 ) 
090.60 


2(A=5. 0) 
030.50 


3(ft=7. 0 ) 
070.30 


000.10  070.35 

000.00  060.15 

000.00  050.10 


’  EOR 

’EOF 

*  PROBLEM  43  a 

■&  ft  ft  v.  a  a  ft  ft  ft-  ^  ft  ft  ft 

’  EQR 

•PARAMETER  SET  1(A=2.  B=.04,  C=l) 

*  008.03  010.03  000.00  005.02 

EXPAND  43/2. .04. 1. 1/ 

•EOR 

'-PARAMETER  SET  2(A=25,  B=.04,  C=l) 

»  003.04  010.03  000.00  005.04 

EXPAND  43/25.0.04,1,2/ 

’  EOR 

-PARAMETER  SET  3(A=2,  B=.04,  C=2) 

*  003.04  010.03  000.00  005.04 

EXPAND  43/2, .04.2.3/ 

»  EOR 

-•PARAMETER  SET  4(A=25.  B=.04,  C=2) 
s  003.04  010.03  000.00  005.04 

EXPAND  43/25. . 04. 2. 4/ 

’  ECR 

•PARAMETER  SET  5(A=2.  B=.50,  C=2) 

*  003.04  010.03  000.00  005.04 

EXPAND  43/2. .50.2,5/ 


EC1 


-■  PRT.'LEM  43  » 

,  frnn 

-PARAMETER  SET  1(A=1,  B=.50,  C=2) 

n'’3.04  010.03  000.00  005.04 

EXPAND  43'1.  .50,2,  1/ 

•  f  op 

PARAMETER  SET  2'A=1,  D=.50,  C=25) 

»  003.14  010.03  000,00  020.50 

-A  AMD  43/1.  .50,25,2/ 

’  IP  > 

-ROTAMETER  SET  3(fi=2,  B=.04.  C=2) 

003.02  010.03  000.00  000.00 

•X  P AMD  43  '2,  .04,2,3/ 

,  rn 

•  :  f-PAMSTER  SET  4<A=2.  5-.50,  c=2) 

003.02  010.03  000.00  000.00 

EXPAND  43/2, .50,2.4/ 


TC1 


4? 


m  m  i  <  •  rn  *  f.  -  *  «  *  *  •  i  _j  oj  lj  oj  cj  lj  lj  lj  lj  lj  lj  lj  uj  ru  ru  ru  ru  ru  »—  •— 


CMts;-SM«(tM*S 

«  PROBLEM  50  * 
aaassaaaaaaaaaaa 
'  EOR 

»  000.06  000.00  000.00  010.25 

*  2022021202000 

1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  $  HOMOGENEOUS 

POISSON  $  LAPLACE 
UXXS  +  UYY$  =  0. 

DIRICHLET 

X=0 .  .  U=SIN(3. 14159265358979»Y) 

X=3. 14159265358979  ,  U=0. 

Y=0 .  ,  U=0.75*SINCX)-SINC3.*X) 

Y=1 .  .  U=0. 

FUNCTION  TRUE ( X,  Y) 

DATA  PI /3. 141 59265353979/ 

T 1  =  3. *SINH( 1 . -Y)*SIN(X)/(4 . *SIMH( 1 . ) ) 

T2  =  SINH(3.*C1.-Y))*SIN(3.*X)/SINH(3.) 

T3  =  SINH(PI*(PI-X))*SIN(PI»Y)/SINH(PI»PI) 

TRUE  =  T1  -  T2  +  T3 
RETURN 
END 

FUNCTION  SINH(X) 

EXPX  =  EXP(X) 

SINH  =  0. 5* C EXPX- 1. /EXPX) 

RETURN 
END 


EOR 

EOF 

■:  j  a  s:-  a  si  a  si  si  si »  e  st  a 


PROBLEM  51  * 

a  a  a  a  a  Si  a  a  a  a  a  a  a 


EOR 

PARAMETER  SET  1(A=0.3) 
009.33  100.05 

XPAND  51/0.3.1/ 

EOR 

PARAMETER  SET  2(A=0.5) 
009.37  100.05 

XPAND  51/0.5.2/ 

EOR 

-PARAMETER  SET  3(A=0.G) 

*  009. 3S  100.05 

EXPAND  51/0.6.3/ 

’EOR 

'••PARAMETER  SET  4(A=0.7) 

“•  009. 3S  100.05 

EXPAND  51/0.7,4/ 


090.05  010.15 

090.05  010.10 

090.05  010.05 

090.05  010.05 


’  EUR 
’EOF 


-■  PROBLEM  52  « 


’EOR 

-PARAMETER  SET 
»  003.06 

EXPAND  52/2., 1/ 
’FOR 

"PARAMETER  SET 

008.07 

EXPAND  52/4., 2/ 
’FOR 

-PARAMETER  SET 

003.15 
EXPAND  52/43., 3/ 


1  (A=2. ) 
010.05 


2(A=4. ) 
010.07 


3(A=43. ) 
010.25 


005.00 


005.00 


005.00 


010.05 


015.07 


015.35 


’EOR 

’EOF 


PROBLEM  53  * 


-PARAMETER  SET  1(A=30.0,  B=20.0) 


43 


*  n'Vi.n  mo.  oo  000.00 

i ;  r-i ir  n  rr,<  i.  ,;>  i.  - 

•i  o: ’ 

i  i:,r  r;  i*  r  prrv-'o.o,  n-Pi ) 

!!•  '-I  12  HOG.  30  000.00 

:  :  i  in.  ,-j.  14153285353979/ 

'in.1 

iO .:’tiliL'TKI‘  SET  3( 6=1 0 . 0,  B=10.0) 

oOO.ia  00B.30  000.00 

:  .  ,ND  93/10. .  10./ 


005.30 


QOS. 30 


966.30 


P:  .R.  iMETFR  SET  41,9=20.0,  B=10.0) 

000.27  008.75  000.00 

EXPAND  53/30.,  10./ 


008.75 


■■  PROBLEM  54  * 


-PARAMETER  SET  1  CA=0.5) 
000.09  010.05 

EXPAND  54/. 5/ 

’  EOR 

-PARAMETER  SET  2(6=0. 9) 

-■  000.17  010.20 

EXPAND  54/0.9/ 


000.10  010.20 


000.25  015.30 


’  EOR 
’EOF 

»  PROBLEM  55  * 


.'■PARAMETER  SET  1(A=1.,  B=3.,  C=l) 

*  003.13  000.00  005.20  020.35 

EXPAND  55/1. ,3. ,1.1/ 

’EOR 

--■PARAMETER  SET  2(6=3.,  B=2. ,  C=1 ) 

003.12  000.00  005.20  013.35 

EXPAND  55/3., 2., 1.2/ 

’  EOR 

•-■PARAMETER  SET  3(6=1.,  B=3. .  C=2) 

003.15  000.00  005.20  027.40 

EXPAND  55/1., 3., 2. 3/ 

’  EOR 

■"PARAMETER  SET  4(6=8.,  B=2.,  C=2) 

003.07  000.00  005.20  005.10 

EXPAND  55/6., 2., 2. 4/ 


;  PROBLEM  58  * 


"■PARAMETER  SET  1(6=0,  B=l) 
"■  050.53  100.30 

EXPAND  58/0,1/ 

’  TOR 

■"■PARAMETER  SET  2(6=0,  B=4) 
030.53  100.30 

EXPAND  55/0.4/ 

’  EOR 

^PARAMETER  SET  3(A=3,  B=l) 
»  050.53  100.30 

EXPAND  58/3.1/ 

’  FOR 

-"PARAMETER  SET  4(6=3,  B=4) 
050.53  100.30 

EXPAND  58/3,4/ 

’  FOR 

-PARAMETER  SET  5(6=3,  B=3) 
■-■  050.53  100.30 

EXPAND  5S/3.3/ 


030.35  050.25 


030.45  050.40 


030.35  050.25 


030.45  050.40 


030.45  050.45 


43 
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R  :)  <■:  0  P  I]  L  H  T  I  o  :<  M  ,U  P  0  FILE 


IV.CFIL  C'-lTrtlMS  THE  INFORMATION  NEEDED  TO  FULFILL  THE  MACRO 
CALLS  0-?IGir:.-» li I  EONFIL. 

M.'iCF  TL  IS  niUIDCO  L'P  INTO  RECORDS  WHICH  ?.3E  NUMBERED  0.  1,  2,... 
ETC.  THE  EM'D-OF-RECORD  IS  DESIGNATED  BY  »EOR  CEO,?  ON  NON-CEC 
I i oT ALL AT IC.S5) . 

record  o  contains  a  description  of  the  purpose  and  organization 

OF  VLOFIL.  RECC'D 3  1,  2.  3...  CQNTAIN  THE  IN-ORNATION  NEEDED  TO 
OEi iEi'.'iTE  THE  ELLPACK  PROGRAMS  CORRESPONDING  TO  PROBLEMS  1»  2,  3... 
OF  THE  ELLPAC.L  THE  POPULATION.  ALTHOUGH  SOME  OF  THE  PROBLEMS  ARE 
HOT  P  R;  NZTFRIEZO  AND  HENCE  HAVE  NO  MACRO  CALLS,  YET,  THERE  ARE 
DUMMY  RECORDS  FC»  ”KZ3Z  PROBLEMS  Oil  M.ACFIL  SO  THAT  THE  PROBLEM  AND 
MACRO  MEMBERS  NAY  DE  III  A  ONE-TO-ONE  CORRESPONDENCE.  RECORDS 
1,  2,  3...  HALE  THE  FOLLOWING  FORMAT! 

LINES  1-3:  LINES  !  THROUGH  3  CONTAIN  THE  MACRO  NUMBER. 

LINE  4:  LINE  4  CONTAINS  THE  PROBLEM  T^PE  INFORMATION  STARTING 
II!  COLUMN  1!  WHICH  IS  USED  TO  TEST  THE  COi i?ATI3ILIY  OF  THE  PRO- 
DLFM  WITH  THE  ELLrACK  ROUTINES  SELECTED  III  THE  ENCODED  PROGRAM 
(SEE  ROUTINE  CDMRAT ) .  THIS  INFORMATION  BECOMES  A  COMMENT  IN  THE 
GENERATE!)  ELLI-.-Ok  PROGRAM. 

OOHRAT  USES  THE  PROBLEM  TYPE  INFO  CPTYPE)  P.ND  DISRETIZATION 


LE  INFO  r 
ATID_E  ill 

s  iii  the' 

THE  FULL 

VALUE 

DMTYPSj  TO  DETERMINE  WHETHER  MOD'JL 
TH  THE  GIVEN  RLE  PROBLEM.  THE  NRTV 
i-.~Rri /  P-TYPE  AMD  IN  EACH  RON  OF  THE 

.iliio  i  i  MviO  * 

PT  TRE  MEANING  DilTYP 

E  DISMOD  IS 

PE  (NOW  151 
TABLE  DMTYPE 

E  MEANING 

0 

ITEM  HOT  PRESENT  ITEM  MUST 

NOT  BE  PRESENT 

1 

ML!  :ays  matches  allays  mat 

EKES 

2 

ITEM  PRESENT  ITEM  MUST 

BE  PRESENT 

14  ITEMS 

CL"R  “NTi.Y  CHECKED  FOR  CO;  iPATEO “LIT 

Y  ARE: 

CONCEPMir 

p 

o 

i-n  i  ;  rrr  ,^7Tn  \ 

LAPLH.CZ  GO  ."■■'ION 

D 

U,<  OR  UY  TERMS 

G 

CONSTANT  OOCFFICIENTS 

7 

CELI--FO  'DINT  —j  N i 

fj 

\-rs\3z  v 

3 

j/ / 

CO*  r/‘P‘ !:  f 

0  ~K0  ECJ'F’APY  CONDITIONS 

DTRIC  •"  ‘  f  .  .  ''  C  EM 

i  i 

C  .ME  ’ ■  vTTi.iE  CONDITIONS 

i 

!  j 

C  j  i  *  i  1  1  C"J  I  j  7T  e  D'  13 

CONCERNir 

■c  T:  C  grid 

1  J 

■j. hr:  - .  :  ) 

«  r : 

. LT"CC  0-  THE  RE 

CO'D  CONTAIN 

'  -  :■  ■■■D  ,  :  ■  :  .,  CO."  'C  -.R 

AND  FORTRAN  SC 

;  "•  -  - 

..  .  .  •  5  -  .  m  the  a 

"D  r*-::zr?. 

.  *“*  ; 

■ '  “  r  :  ,*  •' .  r-.-i  •  '3 .~5  j?)  r 

‘"‘I;  7  p  l-  r 

i 

j  "l  i"  i  ;  ;  '  p  '  .'  i  ”  *  _*  ;  ^ 

•  ;  rv- T  c yr-  !|  r 

■  ;  •  ;  . 

in  f  ,  i  n  v  ,i  "E" .  ;i  : 

dm  :  ;r  cam  ee 

(*)LOU)U)CJUILJuJLJWWtjJWW(jJCJWWCdWCJl*JCJCAlCOUJCA)WCJW(AJf*JtJtJCJ(*)CJUJC*)LJU)OJCOLOLjrorufl)rjri) 


WRITTEN  BY  TYPING  A  C  IN  COLUMN  2.  FOP  PORTABILITY  PURPOSESi 
THE  END-0F-RECORD  IS  DETECTED  BY  THE  PRESENCE  OF  A  (DASH) 
IN  COLUMN  1. 

RELATED  FILES:  GENPGM.  EONFIL.  OPTFIL,  GRDFIL.  OUTFIL  AND  MODATA 


’  FOR 

*  MACRO  1  * 

*  2000002000020 

1  TWO  DIMENSIONS  S  SELF-ADJOINT 

I  EXPCX*Y)UXX$  +  EXP(-X»Y)UYY$  -  1 ./( 1 . +X+Y)U$  =  F(X.Y) 

NIXED 

X=0.  .  MIXED  =  ( 1 . )U  +  (-(&A))UX  =  GXO(Y) 

X=l.  .  MIXED  =  (l.)U  +  (  &A  )UX  =  GXl(Y) 

Y=0.  ,  MIXED  =  ( 1 . )U  +  (-(&A))UY  =  GYO(X) 

Y=1 .  ,  NIXED  =  (l.)U  +  (  &A  )UY  =  GYl(X) 

FUNCTION  TRUE(X.Y) 

COMMON  /CONCOM/  PI 
DATA  PI/3.14153265353373/ 

TRUE  =  .75*EXP(X*Y)*SIN(PI*X)*SIN(PI*Y) 

RETURN 
END 

FUNCTION  F(X»Y) 

COMMON  /CONCQN/  PI 
PX  =  PI-X 
PY  =  PI«Y 
SPX  =  SIN(PX) 

SPY  =  SIN(PY) 

EXY  =  EXP(X*Y) 

F  =  .75*(EXY*EXY«SPY»((2.*Y*Y-Pr"PI)*SPX+3.*PI*Y*C0S(PX))+ 
S  P I  --SPX- ( X«COS  ( PY )  -PI *SPY ) -EX Y»SPX*SPY/  ( 1  ,+X+Y) ) 

RETURN 
END 

FUNCTION  GXO(Y) 

COMMON  /CONCOM/  PI 
GXO  =  -UA)*PI*.75*SIN(PI*Y) 

RETURN 
END 

FUNCTION  GXKY) 

COMMON  /CONCOM/  PI 
GX1  =  -(&A)*PI«.75*EXP(Y)»SIN(PI»Y) 

RETURN 
END 

FUNCTION  GYO(X) 

COMMON  /CONCOM/  PI 
GYO  =  -(8,A)*PI*.75*SIN(PI*X) 

RETURN 
END 

FUNCTION  GY 1 ( X ) 

COMMON  /CONCOM/  PI 

CY1  =  -(&A)*PI«.75*EXP(X)*SIN(PI*X) 

RETURN 
END 

FUNCTION  CDXUCX.Y) 

CPXU  =  Y-EXP(X---Y) 

RETURN 
END 

FUNCTION  CDYUCX.Y) 

CD  YU  =  -Xi;EXP(  -X---Y) 

RETURN 
END 


a  MACRO  2  » 


3  * 

2020021002002 

TUG  DIMENSIONS  $  CONSTANT  COEFFICIENTS  5  POISSON 


•  COR 
MACRO 

1 


UXX3  +  UYY5  =  F(X.Y) 

DIRICHLET  5  HOMOGENEOUS 

X=0.  ,  11=0. 

x=i.  .  u=o. 

Y=0.  .  U=0. 

Y= 1 .  .  U=0. 

FUNCTION  TRUE(X.Y) 

camion  /concon/  c.caai.ams. initl 

DM P A  INITL/1/ 

IF  CilllTL  .FQ.  0>  GO  TO  10 

C  =  l./(Ufl)**a&A)/'(l.-(&A))) 

5  -C4A)**(1./C1.-C&A))))**2 

CAA1  =  C*(4fl)*f C&FO-l . ) 

AN2  =  &A-2. 

INITL  =  0 
10  CONTINUE 

TRUE  =  Cc  ( X**  ( &A ) -X ) * ( Y** ( &A ) -Y ) 

RETURN 

END 

FUNCTION  FCX.Y) 

COMilOf I  /CONCOIT/  C.CAAI.AMS.  INITL 
IF  ( ItllTL  .EO.  0)  GO  TO  10 
C  = 

CAA1  =  C*(2,A)*(  (iA)-l. ) 

AM2  =  2.0-2. 

INITL  =  0 
10  CONTINUE 

IF  (  X.EO.O.  .OR.  Y.EO.O.  )  GO  TO  20 
F  =  CAA1*(X**AM2*(Y**(&A)-Y)  + 

3  Y«*AM2*(X«*(4A)-X)  ) 

RETURN 
20  F  =  0. 

RETURN 

END 


*  irni 

C.UIS 

s  ~  -x-  ■»  "• »  s  «•  «• «  s 

»  MACRO  4  * 

*  2020021000020 


TITO  DIMENSIONS  5  CONSTANT  COEFFICIENTS  S  POISSON 


1 

UXX3  + 

UYY3  =  S.»X“Y«EXP(X+Y)»(X*Y-!-X+Y-3.) 

2 

MIXED 

2 

x=o .  , 

MIXED  =  (l.)U  +  (-(&A)»CY-Y*Y))UX  = 

2 

X=1 .  , 

U=0. 

2 

Y=0 .  . 

U=0. 

2 

7=1.  , 

u=o. 

FUNCTION  TRUECXi Y) 

TRUE  =  3.*EXPCX+Y)»X*Y«(1.-X)»(1.-Y) 

RETURN 

END 

FUNCTION  GCY) 

TEMP  =  (Y-Y-^Y  2 

G  =  -  ( 2,  A )  »TEMP»3 .  *EXP  C  Y ) 

RETURN 

END 


»  MACRO  5  a 


2000031002003 

T!I0  DIMENSIONS  5  CONSTANT  COEFFICIENTS 
4.UXX3  UYY3  -  (FAIL'S  =  FCX.Y) 
DIRICHLET  3  HOMOGENEOUS 
X=0.  ,  U =0. 

.>—i.  .  J— 0. 

7=0.  ,  U=0 . 

7=1.  .  U=0 . 

FUNCTION  TR'JZCX.  Y) 

COMMON  /CCNCCM/  TIIOPI 
DATA  T!10PI^S.2331S53071?S53/ 

TPl1"  =  2.-tX»(X-l.)»(C0S(TW0?I»Y)-l.) 
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nro  ro  ro  fo 


FUNCTION  F  ( X  >  Y ) 

COMMON  -'CONCCM-'  Tk’OPI 
CTPY  =  CG3(T!0?I»Y'» 

F  =  2. C :•<- 1 .  :> » i AA* ( 1 .  -CT?Y)-TW3PI»TW3?I«CTf»Y) 

C5  +  i3.«(C?PY-i  .  1 
RETURN 

zr;a 


’  EOR 
»  MACRO 


’ECR 


*  MACRO  7 


’ECR 

>j  ^rin  2 

9  2020021002000 

1  Tt!0  DIMENSIONS  5  CONSTANT  COEFFICIENTS  0  POISSON 

1  UXX5  +  UYY5  =  D2?CX)*P(Y)+P(X)sD2PCY) 

2  QIRICHLET 

2  X=0.  ,  U=TRUECX*  Y) 

2  X=l.  .  U=TRUECX.Y) 

2  Y=0 .  .  U=TRUE(X> Y) 

2  Y=1 .  >  U=TRUECX* Y)  ' 

3  FUNCTION  TRUECX.Y) 

3  TRUE  =  P(X)*PCY) 

3  RETURN 

3  END 

3  FUNCTION  PCX) 

3  COMMON  /CONCOfV  A,  3 

3  DATA  A)  B'l.»  0./ 

3  XI  =  S.A 

3  X 2=1 .  -  (&tl) 

3  IF  (X  .LT.  XI)  GO  TO  1 

3  IF  (X  .GT.  X2)  GO  TO  2 

3  DPMI  =  3  -  A 

3  DX  =  X2  -  XI 

3  P  =  A  +  DPMI* C X~X I ) 9»3'/ ( DX««3 ) -3 . *DPHI* ( X-X 1 ) »»3* ( X~X2 ) 
3  0  /DX*--4  +  3.*B?HI*(X-X1)«*3*(X-X2)*»2/DX»*5 

3  RETURN 

3  1  P  =  A 

3  RETURN 

3  2  P  =  3 

3  RETURN 

3  END 

3  FUNCTION  D2PCX) 

3  COMMON  /CCNC01V  A,  3 

3  XI  =  C.A 

3  X2  =  1.  -  CCA) 

3  IF  CX  .LT.  X!)  GO  TO  l 

3  IF  (X  .GT.  X2)  GO  TO  1 

3  DPMI  =  3  -  A 

3  DX  =  X2  -  XI 

3  C3  =  DP.-II'DX-— 3 

3  04  =  -3.9Dr.-II/DX994 

3  C5  -  S.9DP;-II/DX:i93 

3  D2P  =  2.9C39CX-X1)  :-3.9C49CX-Xl)-3(X-X2)  + 

3  •  0  3.9C4:KX-Xl)9;>2->3.*C59^<-XiVKX-X2)**2+ 

3  0  1 2.  ;:059 ' X-X 1 )  ■•  929 C X-: '2 ) ->2 . 9-05 :f  C X-X 1  )»»3 

3  retur;  i 

3  1  D2P  -  0 . 

3  petit;) 

3  END 


» nrro 

»  MACRO  3  9 
9  20000-’0002?00 

i  txd  dime;  37o:;3  o  constant  coefficients 


LJ  LJ  LJ  LO  CJ  LJ  LO  LJ  LJ  LJ  fU  IU  UJ  f\J  t 


I  +  UYY3  -  1  -TO . ur»  -  .5»UA»»2-100.)*CCSH(4A»Y)/COSHC4A> 

ni.7ia-r_Er 

.  u=tpuecx. y i 

N=l.  .  U=F;:Uc' 

-  v ,  u--tp:je 

v=  i .  .  untrue i v) 

FLNC  i  I  Oil  fPUZ  I  U  .  V  : 

j  TP.  I  -  .  li -- 1  C03HC 10.  -y  :) /COSH (  10.  )+C05HI4A»Y)/COSH(4A) ) 

PE.umi 
;  !.i  I  ’ 

"  fik  c r  i on  cosh i  z  > 

3  EHS  =  EMPlZ) 

3  cos:i  ”  o.5*u:xpz+i./expz> 

3  RETURN 
3  end 


1  ECO 

*  MACRO  10  * 

*  2020021002002 

1  II JO  DIMENSIONS  3  CONSTANT  COEFFICIENTS  $  POISSON 

1  LvO'O  UVVS  =  F(X»Y) 

2  DIRICHLET  5  HOMOGENEOUS 


p 

x=o. 

.  J-0. 

2 

x=i . 

.  U=0. 

2 

7=0 . 

,  U=0 . 

p 

Y=1  . 

.  11- 0. 

3 

FUNCTION 

TRUECX. Y) 

3 

U  =  4A* 

C(X-.5)**2+CY-(4B»*»2) 

3 

TRUE  »  e: 

liPCU)oX»CX-l.  )«Y*(Y-1. ) 

3 

3 

3 

RETURN 

END 

FUNCTION 

F(X.Y) 

3  TEMP  =  EXP(-&A»((X-.5)**2+(Y-(4B))**2)) 

3  UNX  =  TEMP»Y'-*CY-1.  )*<-2.«&A»(X-.5)* 

3  S  l-2.*4A*X-:.‘*3+3.*4A*X**2+(2.-&A)*X-l.)  + 

3  5  (-B.»&m*;:**2+S.*4A»X+(2.-4A))> 

3  U'i'Y  =  TEMP»X*CX-1.)*(-2.*4A*(Y-4B)* 

3  S  i-2»4A*Y*»3+2.«4A*(l.+&3)»Y»*2+ 

3  0  2.*U.--4A»4B)»Y-1.  )  +  (-G.*4A*Y*»2+ 

3  S  4 . *4A»  < 1 . +43 ) « Y+2 . » (1 . -4A»4B ) ) ) 

3  F  --  UXX  +  UY  < 

3  RETURN 

3  El  n 


’  EOR 


'*  .  I'm— 1 0 1 

1 

1 

p 


11  - 
202^021002000 

f!!0  DliiEi  ,31033  5  CONSTANT  COEFFICIENTS  $  POISSON 

LOT :s  +  ur.’S  -  F(X.Y) 

DIRICHUET 

::--o.  ,  U-TPUE' h, Y ) 

X=l.  ■  U-TPUEr X> Y ) 

7-0.  .  U=0'P>JE( Xt Y ) 

Y=l.  .  U-TPUE ( X>  V) 

FUNCTION  TPL’Ef X» Y 1 
COliliOil  Or, COI1/  PI 
SAT  A  PI/3. 14153235353979/ 

TEMP  -  X-Y:-2. 

TEIIP‘1  =  TEKR»«4 

TRUE  =  SUM  CA'--TEIiP4"-TEM?/(  1  .+TENP4) ) 

PE TUP 1 1 

cm 

FOUNT ‘Oil  Fr;:,Y) 
com  Mil  /CONCE.1/  PI 
! :  -■  X-V+2. 

P  — 

s  "  ' . 
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njfu/umnjnnnnnnnnnmnnnnn  i  .  *  *  *  i.  »  »  i  trfrtnminmiiunnnnnnni’mnnnnnnnnn 


SXX  =  12  *W*»2 

52  =  S«S 

53  =  S2*S 

UX  =  (S*RX-R*SX)/S2 

UXX  =  (S2*RXX-R*S*SXX-2.*S*SX*RX+2.*R*SX**2)/S3 
CAU  =  COS(AU) 

SAU  =  SIN(AU) 

UXX  =  ( &  A ) a  ( CAU*UXX- ( 4A ) *S AU*UX*UX ) 

F  =  2.0*UXX 

RETURN 

END 


’  EOR 


000*0*0*0 

»  r-l; .  ,n0  12  » 

it  *  w  w  w  0  *  *  *  0  *  0  * 

*  2000200002000 

1  TWO  DIMENSIONS 

1  UXX 5  +  UYY$  +  ( 1 . +SIN(4A*X) )UX$ 

1.  -  C0S(S.AaY)U$  =  FCX.Y) 


DIRICHLET 

X=0.  ,  U=TRUE(X>  Y) 

X=1 .  .  U=TRUE(X.Y) 

Y=0 .  .  U=TRUE(X,Y) 

Y=l.  ,  U=TRUE(X.Y) 

FUNCTION  TRUE(X.Y) 

TRUE  =  C0S(&BaY)+SIN(4Ba(X-Y) 1 

RETURN 

END 

FUNCTION  F  ( X  >  Y ) 

BXMY  =  S,B*(X-Y) 

UX  =  &BaCOS(BXMY) 

B2  =  (4B)»(4B) 

UXX  =  -B2*SIN(3XMY) 

U  =  C0S(8,BaY)+SIN(BXMY) 

UYY  =  -B2»U 

F  =  UXX  +  UYY  +  (l.+SIN(4A*X))*UX 
S  -  C0S(4A»Y)*U 
RETURN 
END 


IOR 

*sa*e««a»ea* 
MACRO  13  * 


*  0  0  0  0  0  0 0 0000 
MACRO  14  * 

3  »  0  0  0  U  0  0 0  0  0  0 

2000220002000 
CONSTANT  COEFFICIENTS 

UXX5  +  2„UYY$  +  3.UXS  -  4.UY$  -  U$  =  F(X.Y) 

DIRICHLET 

X=0.  .  U=Y 

X=1 .  .  U=TRUE(Xi Y) 

Y=0.  .  U=0. 

Y=1 .  ,  U=1 .  -  0,8a(4A)  +  (&A)*ABSCX-0.S) 

FUNCTION  TRUE(X.Y) 

TRUE  =  Ys(1.-.8«(&A)**(2.-Y)+(&A)»ABS(X-.8)**(2.-Y))  + 
S  X«Y*EXP(-X»Y) 

5  «(Y-1.) 

RETURN 

END 

FUNCTION  F(X.Y) 

0  =  (2. -Y)*ALQG( ABSCX-. 8) ) 

P  =  1.-.8*(&A)*«C2.-Y)  +  (4A)*EXP(Q) 

DXQ  =  (2.-Y)*G(X)/ABS(X-.8) 

DXXQ  =  -(2.-Y)*G(X)*a2/(X-.8)*»2 
DYO  =  - ALOG ( ABS ( X- . 8 ) ) 

DYYO  =  0. 

DXP  =  !.A~DX0"EXP(0) 

DXXP  =  < &A ) aDXXQ»EXP 1 Q ) + ( 4A ) aBXQaa2aEXP ( 0 ) 

DYP  =  .  8"AL0G(&A)»EXP(  (2.  -Y  )»AL0G(  8.A) )  + 

5  aA)*DY0*EXP(0) 

DYYP  =  ~.8aALOG(4A)aa2aEXP(  (2.-Y)*ALOG(&A) )+ 


3  0  &  A  "-DYYO  -  EXP  ( 0 )  +<S.AaDYQa*2*EXP  ( 0 ) 

3  U  =  Y*P  X«E;(PC-!<:sY)«CY*Y-Y) 

3  UX  =  Y «nxp  +  ( 1 . -X" Y)*( Y»Y-Y)*EXPC-X»Y) 

3  UXX  =  Y~DXXP-Ya ( Y*Y-Y )  «EXP(  -X«Y  )■*  (2.  ~X*Y) 

3  UY  =  P  +  Y-DYP  +  X-»EXPC-X*Y)*C2.»Y-1.-X*Y*(Y-1.  )) 

3  UYY  =  2.-DYP  +  Y-DYYP  +  X*EXP(  -X-*Y)a(  2.  -4.  *X*Y+2.  *X+ 
3  S  <  X=Y 1 *“2-X*X -Y ) 

3  F  =  UXX  +  2 . "UYY  +  3.*UX  -4.*UY  -  U 

3  RETURN 

3  END 

3  FUNCTION  G(Y) 

3  G  =  1. 

3  IF  <  Y  .LE.  .8  )  G  =  -1. 

3  RETURN 

3  END 

’  EQR 

MACRO  15  * 

«  2000200002000 

1  TUG  DIMENSIONS 

1  UXX5  +  UYYS  +  (&A)/(Y+(&C) )UYS  =  F(X.Y) 

2  DIRICHLET 

2  X=0.  .  U=TRUE(X,Y) 

2  X=i.  .  U=TRUE ( X>  Y) 

2  Y=0 .  •  U=TRUE(X>  Y) 

2  Y=l.  ,  U=TRUE(X,Y) 

3  FUNCTION  TRUE(X,Y) 

3  TRUE  =  fY«*(&3)  +  C05(X«Y«Y)-1 . )«X*X*(X-1. 1**2 

3  RETURN 

3  END 

3  FUNCTION  F(X.Y) 

3  FI  =  Y»a&B  +  COS(X*Y*Y)  -  1. 

3  DXF1  =  -Y*Y»SIN(X*Y*Y) 

3  DXXF1  =  -Y**4*C0S(X*Y*Y) 

3  F2  =  X«X»(X-1.)»(X-1.) 

3  DXF2  =  4.aX»«3  -  G.«XaX  +  2.*X 

3  DXXF2  =  12.«X»X  -  12. *X  +  2. 

3  UX  =  DXF1---F2  +  F1*DXF2 

3  UXX  =  DXXF1*F2  +  DXF1*DXF2  +  DXF1«DXF2  +  F1»DXXF2 
3  DYF1  =  &n»Y*»(43-l. )-2.0«X*Y«SINCX»Y»Y) 

3  DYYF1  =  &3*C4B-l.)»Y«»(&B-2.)-2.0*X»SIN(X«Y»Y)- 

3  5  (2.0»X*Y)«a2»C0S(X«YeY) 

3  UY  =  DYF1-F2 

3  UYY  =  DYYF1-F2 

3  F  =  UXX  UYY  +  ( & A ) / ( Y+ ( &C ) ) *U Y 

3  RETURN 

3  END 


’  EOR 

a  MACRO  IS  a 

a  2000200002002 

1  TWO  DIMENSIONS 

1  UXXS  +  UYYS  +  (500.x(250.«Y-l . ) )UY$  =  -1.^&B**2 

2  DIRICHLET  S  HOMOGENEOUS 

2  X=0.  »  U=0. 

2  X=?  3  .  U=0. 

2  Y=0.  .  U=0. 

2  Y=i.B  >  U=0. 

3  FUNCTION  TRUZCX.Y) 

3C 

3C  a  * 

3C  a  MACRO  IS  PARAMETERS  a 

3  C  *  a 

3C  t»559«9ilSSil5a6«5Se5*}#SS«a»a#»*#M««*«5i!im*S***««*** 


3C  a  * 

3C  «  A  I  B  * 

2C  *  - 1 -  a 

3C  »  111  a 

3C  a  I  a 

3C  a  10  I  2  a 

3C  a  a 
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}  .J*  ■>*  •£■  "It  “•  •>  Ct  •>  Op  -H.  -•  X  •?>  <<  •“  «  * 


REAL  DERLSL 
S  Tlimi 

3  7531 1  1 

EOUIUALUiCE 


DATA  N5PID. 
DATA  GRID!  • 
SO. 2105233. 
SO . 472E342, 
SO. 7363421, 
SI . 000000')/ 
DATA  C9ID2-' 
S2. t052632, 
34 .  “'323421  > 
S7.3G34211. 
310 . 000000/ 


C  G  0 .  Ti-.-_E120.20).  3PID1  (20  ) .  GR:D2(20). 
00),  HD2(  100 ) ,  T1E3U00),  T1B-4C100). 

00'.  T?32(  100),  “233(100).  T234U00) 
i  o-3'.j  1 .  1)  ,  TJfiBl(D). 

( Ti-DLEC  i,  6)  ,  T&A32(1)). 
i  rA3LE<  1.11)  ,  T&PB3C  1 ) ) « 

■  Tf-D'-td.  IE)  -  Tc.A34l  1 ) ) 

H3RDD--20.  20/ 

0.0000O00.  0. 052S31S.  0.1052332.  0.1573947, 
0.2331573.  0.3157335,  0.3534211,  0.421052G, 
0 . 52S3153.  0.5733474,  0.6315739,  O.G342105. 
0.7394737,  0.3421053,  0.3347333.  0.9473884, 

0.0000000,  0 . 51G3153.  1.052S31S,  1.5733474, 
2.G315733,  3.1573347.  3.G342105,  4.21052S3, 
5.2331573,  5.7334737.  G. 3157325,  S. 3421053, 
7.3 347333,  3.4210523,  3.3473334,  9.4735342. 


3C 

appro:-:  in  )te 

52LUTI3N 

07  PP9BLE 

■!  U5IN5 

3C 

P3 

-ci  cgli.qci-iTioh  <3 

X  3  GRID) 

3C 

3 

DATA  TIBI/ 

.000000. 

.000000, 

.000000, 

.000030, 

.000000, 

3 

3 

. COOP no, 

." 00000, 

.000000. 

.000000, 

.000030. 

.000000, 

3 

3 

.000000, 

.  '.*0  ‘J 000 * 

.000000, 

. 000000* 

.000300, 

.090000, 

3 

s 

,000000. 

.000000. 

.000000, 

.000600, 

.437323, 

.752183, 

3 

s 

. 345004* 

.E37101, 

. 223376, 

-.222313, 

-. 3251 1G, - 

1.349772, 

3 

3-1 

.  G 14137,  - 

1  .21 41 £7. - 

1.343772, 

-.3351 1G, 

-.232313, 

. 2E857G, 

3 

3 

• GS7 1 0 i * 

. 345004. 

.755129* 

.437323, 

.000000, 

.000000, 

3 

S 

. 137043. 

# 1 f 

.270503, 

.224243, 

.112455, 

-.044752, 

3 

S  - 

.212208. 

- . 351Z0o* 

-.422204. 

-.422204. 

-.351905, 

-.212208, 

3 

S  - 

.044732. 

.112455, 

.224243, 

. 27C309, 

.233331. 

.137048, 

3 

3 

. 000000. 

.000000- 

-.003242, 

-.002557, 

.003720, 

.020541, 

3 

<*5 

.045045, 

. 07G174, 

.105132, 

.  120279, 

.142314, 

.143314, 

3 

S 

.130279, 

. 10S132, 

. 07G174, 

.045045, 

.020941, 

.003720, 

3 

5  - 

.003557, 

-.003242. 

.000000, 

.900000, 

.002325, 

.019330, 

3 

S 

.030544. 

.044457, 

. DE03S3, 

.077176, 

.052739. 

.104303, 

3 

S 

.111355. 
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.104303, 

.022739, 

.077173, 
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3 

$ 
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.000000. 

.013371, 
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3 

5 
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.033342, 

.034223. 
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.033016, 

3 

5 
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.053335, 

.051349, 

.035743, 
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S 

.023502. 

.013371, 

.000000, 

.000000, 

.015353. 

.025741, 

3 

s 

. 042343. 

.054035, 

.034300, 

. 07455S. 

.032534, 

. 035339, 

3 

0 

. 031323, 
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.033333, 

.022334, 

.074555. 

.034300, 

3 

3 

.054033. 

.042343, 

.023741, 

.  0  l.SSoS, 

.000000, 

.000000, 

3 

0 

.015573, 

.031077, 

•  O-.Z  » 

.  054754. 

.054370. 

.072430, 

3 

3 

•  .'I'll  * 

. °33333. 

. 053333, 

. 023323. 

.023333, 

. 073913, 

3 

3 

.  0  72  :?o, 

.054370, 

.0-34754, 

.043353. 

.031077, 

. 01GE73. 

3 

z 

.  OPViQn, 

•OOOOOA, 

.0:3733, 

.031075. 

.  043377 , 

. 05530S. 

3 

0 

.  052)2  5, 

.  033  353. 

. 072247, 

.072:25. 

.">31551. 
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3 

3 

. 3 <03 30 t 

.  07.3347. 
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z 
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3 
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3 

-J 

•  ^  <  000 1 » 

. 075251, 
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3 

3 
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.030427, 

. 013175, 
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3C 

3 

DATA  T! 23/ 

.000000, 

.01.5333, 

.022454, 

. 040772. 

.050141. 

3 

g 

.057737. 

.053711, 

.033143, 

■'1  :  ',?i 

.  0-25-4S. 

.072"  :g. 

3 

3 

. 0 7 1  o?  1 , 

•  ’jS3  .'IS* 
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.037737, 

. *30141. 
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3 

3 
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. 013333. 
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.0:0000, 

.012271, 

.0  '4075. 

3 

3 

•3, 

•  '7311, 

."04493, 

,051240. 

.  0  g  ^  3  j  3  * 

.0:  .9 -"-53, 

3 

3 

.  05775', 

.  057731, 

.023453, 

. 0003d, 

. : 13340, 

. 054403. 

3 

3 

y  73  *0  , 

.  '7.370?, 

.  '•7'j07t5* 

.  0 7  071  , 

.0)0)00, 

.o-oorn. 

3 

0 

.  0  , 

,'•?  .?'  3. 

.  rZ'~  21 1  f 

»-»  *  '  :07( 

,02  0513. 

. OOOOO Or 

3 

3 

.  :T  f'  5  > 

,  2 ; "?  "5  ♦ 

# n -Q  •  :  r a 

.  00  .3.7  3* 

. 052S2S. 

3 

3 

•  "  1  "j  ,  Jt 

»  )  ’  » 

.  •  /I  077 

, 

."-33*'9. 

.014113, 

3 

-) 

•  '  ’  ’  ’ 

•  1  1  ’  ’  *  » 

?  -  3  * 

3 

3 

.  ,  ”  Vl* 

.  }  J, 

.  )35  -'5, 

. 075415, 

3 

3 

•  ,  ii'  ■ 

•  ;  '  .  ‘  *-  » 

.  .-.'200, 

.0  .301.1, 

.0-:  '"53, 

.05-253. 

3 

3 

.  '■  7  ■*  1.1, 

.  1 0 1 » 

.  /  '1 0000, 

.090000. 

. 0 .2135, 

.021551, 

3 

3 

. 3  307 03, 

•  ’  -  l';  -  >  0  Z  * 

.0 : 4 ;  r3, 

,047035, 

«  0  *1 Z  (7  8  * 

3 

3 

,  0  » 

9  J-.  3  2  r  * 

.0:377?, 

.  ?4? 025. 

.o;4453. 

. 040CCG. 

“3 
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3 

3 
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3 

.  -'3333.!. 

• 

'233;::', 

.  3: 2 31. 

. :  12153, 

.0'  1  ;  ,0' 

r.-iTii  i!"  ■  • 

:  r'l ■0, 

;  •  ..-!f 

•  ■  -31  15. 

."25,'  ’2, 

. 050553, 

V 

■'  _v  •  .  3 , 

,  7  5'  . 

;  3  ♦ 

.0  ;:9:3, 

.041313, 

lT» 

.'  V  G  3 . 

.  ‘ : 3  !3^  3 . 

.  5  >353, 

. P22712* 

", 

.  0 1  j ; :  . 

•  \  1 ;  7  !■!, 

.  •  7  . 1  >i'.U 

'  1  •  1 r 

•  t 

.0" 5533, 

.0)5729, 

V 

2  :ti  . 

.  -  {  '  ?  i  ♦ 

•  j  7  l  7  -« » 

.031533, 

.032706. 

.  _  . ». 

7  7  j  * 

.  ,v3* 

. 1 3$ 3, 

."30104, 

.027871, 

■33;  3 ,  - 1  f 

-  ;g  ■  \  * 

• 1  .■  f  a  ill « 

.  7 ' 1 7 ._  7  3  j 

.000000, 

.  ijn^OuO * 

•■-  (■)  -  ■  >  1 

1:3:3, 

.  ,431, 

.0:7273, 

.  0  L  5  3  r  0  > 

.00134?, 

'-3 

r  '  ■>  3 

0  6  3' 1  b  5  > 

.023332. 

.032222, 

.  023055. 

.  022372* 

$ 

*  3  «  1  — 

■43370, 

.  "  i  ?  3?’3* 

. 0 1515!, 

.011352, 

.006221, 

V 

,  -.OO-IMM, 

'  :  1  ;‘t  i'  -'1 « 

.004031. 

•  0  035 73 » 

.002223, 

.  007;:, GS* 

o 

.  ’  ‘133, 

0113  37'. 

.  0 1 :  ,335. 

.012137, 

.9.2345, 

.012345, 

.  'ieio: , 

1 1 ' 335, 

.r4i~37. 

.01 0237. 

.  OOGG^St 

. 00332 6. 

•3 

.  '0557  3. 

^ *  ; 0  S 1 » 

.  0  0  0  0  0  0  - 

.000000, 

.0.00000, 

.  000000, 

5 

,  l'  lV  1  -*l  * 

."'10010. 

.  oiinnoo. 

.000000, 

.000000, 

.000000, 

Lt 

.  ■■  0  0  0 , 

:rj0000. 

.000000, 

.000000, 

.000000, 

.000000, 

3 

.  '  0304  1. 

'00000, 

•  0  0  i.!  00  Lit 

.000020, 

. 0000007 
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Tfl  TGGi  ' 

71  !>V'  j  , 

.000000, 
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.000000, 

.000000, 

X? 
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.000000, 

.000000, 

. 0?  3000, 

.000000, 

3 
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.  00-1 000, 
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.000000, 

.000000, 

3 
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.  000000, 

.000000, 

1.335077, 

2.G27EE0. 
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4. 

1  3t 

5. 205350, 

B. 704232, 

7.320325, 
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ZZ 

7 
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7.220225, 

G.704S32, 
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3. 

Z  1  i  7  3  # 

2 « G  ?.  <  0  3  0 » 

1 .235077, 

.000090, 

.000000, 

3 
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1  •  .  "i  _  7  _/  3 » 

1.704324, 

2.035371, 

2.31C493, 

3  ? 

■:  3  .  1  1  1  , 

2 , 

.  3  :J  2  5  0 » 

2.732  223, 

2.722333, 

£ .  633250 » 

2.522111, 
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*“  J  , . 1  3  , 

2 . 
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1.704234. 

1.325333, 

.907373, 

.4Bi823, 

3 

'  •  J » 

.204144, 

.003343, 

.  00 ~212» 

.007204, 

3 

.  '  ’  C.  3  » 

.  V  '“  , 

. : 2 5073, 

.004443, 

.004113, 

.004113, 

3 

'  ;  3 . 

"3 » 

. vOoiSSt 

.003250, 

.007204, 

.007212, 

3 

' ’ 3543* 

.04144, 

. 000000, 

.000000, 

.033733, 

.017273, 

3 

‘='53!  3, 

' 27114. 
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.032535, 

.023390, 

.034547, 

•3 

'  3  ’332. 

34353. 

.034547, 

.023390, 

.032235, 

.030140, 

3 
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* 
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.017273, 

.003733, 

.000000/ 
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000000. 
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.030204, 

. 03S40G, 

-3 
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0-3;  32  0 , 
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3 
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.044220, 
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3 
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.000000, 

.0000 00, 
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~ 
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.3 
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.051343, 
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3 
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3 
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3 
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.027555, 
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' 
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,r  550:3, 

.054357, 

.042273, 

3 

•v  .  7  —  4 

. 1  -  7  -  7- 1  » 

. 0 :  • :  234, 

.0^0000, 

.000000, 

.!  .1  J  « 

«  r-  :  :  23* 

.041441, 

.OPiSl, 

.051503, 

.  .  .  ;  .■>  > 

• , 

r  ‘  7, 

.  r-577GG: 

.073334, 

.051725. 
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.  '  ■  :  '  t 
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•  — »  ■  _  j  t 

.024377, 

.013709, 
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r  *•  *■*  1 
«  .  -  -  t 

.02:371, 
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; 
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,  073730, 
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3 
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,  ’  ~  •  , 
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•  ">  ■ 
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.  023327, 
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" 

;  ’  °7  .  V 

.  "  !'V*  1, 

.00"!  000, 
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.021157, 

'  7  » 

,  '  4  33 13, 

.  ?  ,-;723. 
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.'14  2313, 
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- 
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.-r’ . 

.02-T70, 
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3 

5 

.039452, 

.033203, 

.033241, 

.033474, 

.039760, 

.034867, 

3 

5 

.  01354S. 

,010412. 

.000000, 

,000000. 

.003743, 

.015339, 

3 

S 

.  02032G. 

.024124, 

. 02S933, 

,029070. 

.030554, 

.031454, 

3 

$ 

.  03135S, 

,031956. 

.031494, 

.030554, 

.029070, 

.026968, 

3 

S 

.024124, 

. 02032S, 

,015339. 

.003743, 

,000000. 

.000000, 

3 

0 

.  00G?n i , 

.011414, 

.014841, 

.017417, 

.019320, 

.020716, 

3 

S 

. 021GS3, 

.022318, 

. 022G23, 

.022623, 

.022318, 

,021633. 

3 

S 

.  ■'20F1S, 

.019320, 

.017417, 

.014341, 

.011414, 

.006701, 

3 

s 

.000000, 

.000000, 

.004005, 

.006463, 

.008163, 

.009448, 

3 

s 

.010333, 

.  o  hogs. 

,011545. 

,011346. 
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.011394, 

3 

5 

.01184S, 

,011545. 

.0110SS, 

,010333. 

,003448. 

.008163, 

3 

S 

. 00G4S3, 

.004005, 

.000000, 

,000000. 

.000000, 

.000000, 

3 

$ 

.000000, 

.000000, 

,000000. 

.000000, 

,000000. 

.000000, 

3 

$ 
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.000000, 

,000000. 

,000000. 

.000000, 

.000000, 

3 

S 

.000000, 

.000000, 

.000000, 

.000000, 

.000000' 

3C 

3C  INTERPOLATE  NUMERICAL  SOLUTION  BY  QUADRATICS 

3C 

3  CALL  OUADRDCX.Y,  TABLE.  GRIDS.A,  GRID3.A,  NGRID.  NGRID.  NGRDD.  NGRDD, 
3  5  DERUSL) 

3C 

3  TRUE  =  DERUSL(S) 

3C 

3  RETURN 

3  END 
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*  MACRO  1?  * 

«  *  s  *  •»  *■  *  -a  » a  a 

*  2020021002000 

1  TUO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  $  POISSON 

1  UXX3  +  UYY3  =  FCX.Y) 

2  X=0.  .  U=TRUE( X, Y) 

2  X=l.  ,  U=TRUE(X.Y) 

2  Y=0.  ,  U=TRUE(X,Y) 

2  Y=l.  ,  U=TRUE( X. Y ) 

3  FUNCTION  TRUE  CX.Y) 

3  COMMON  /CONCOM/  A.B 

3  DATA  A.B  /&A.&B' 

3  BX3  =  (B*X)**3 

3  TRUE  =  SINCX-Y+.5)  +  EXP(-Y*Y-C A*BX3'C I .+BX3) )«*2) 

3  RETURN 

3  END 

3  FUNCTION  F  CX.Y) 

3  COMMON  /CONCOM'  A.B 

3  BX  -  (B~-X)**3 

3  DDH  =  6.»X*B**3 

3  DH  =  DDH«X'2. 

3  H  =  1.  +  DH*X'3. 

3  G  =  A*CH-1. ) 

3  DG  =  A*DH 

3  FE  =  G'H 

3  DDG  =  A*DDH 

3  DEE  =  DG/H  -  G*DH'CH**2) 

3  DDFE  =  ( H-DDG  -  2.*DG*DH  -  G’DDH  +  2. »G*DH«DH'H)/H**2 
3  S  =  FE»FE 

3  DS  =  2.*FE»DFE 

3  DDS  =  2.«CFE»DDFE  +  DFE»DFE) 

3  SINXY  =  SINCX-Y+.5) 

3  EE  =  EXP(-Y«Y-S) 

3  UXX  =  -SINXY  -  EE*(DDS-DS»DS) 

3  UYY  =  -SINXY  -  EE»2.«(1.-2.*Y*Y) 

3  F  =  UXX  +  UYY 

3  RETURN 

3  END 
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»  MACRO  13  a 

■■■■  2000200002000 

1  TUO  DIMENSIONS 

1  UXX3  +  C!.+X~Y)UYY5  +  COS(X)UXS  -  EXPC-X)UYS  +  3.U$  =  FCX.Y) 

2  DIRICHLET 

2  :.=0.  ,  'J=TRUECX.Y) 


SO 
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X=1 .  ,  U=TPUE(X.Y) 

Y=0.  .  U=TRUE(X.  Y) 

Y=l.  .  U=TRUECX>  Y) 

FUNCTION  TRUE ( X» Y) 

COMMON  /CONCON/  A.B 
DATA  A.  B  /8.A.&B/ 

BX3  =  (D*X)*<3 

TRUE  =  EXP(-Y*Y-(A*BX3/(l.+BX3))**2)+SIN(X-Y+.5) 

RETURN 

END 

FUNCTION  F(X,Y) 

COMMON  /CONCOM/  A.B 
BX  =  (B-X  )*-•:■  3 
DDH  =  6.*X*B**3 
DH  =  DDH*X/2. 

H  =  1.  +  DH*X/3. 

G  =  A~-(H-1.) 

DG  =  A-DH 
DDC  =  A*DDH 
FE  =  G/H 

DFE  =  DG/H  -  G»DH/(H**2) 

DDFE  =  (H-DDG  -  2.*DG*DH  -  G*DDH  +  2.*G*DH*DH/H)/H**2 

S  =  FE-FE 

DS  =  2.*FE*DFE 

ED3  =  2. *(FE*DDFE  +  DFE*DFE) 

SINXY  =  SINCX-Y+.5) 

EE  =  EXP(-Y*Y-S) 

UXX  =  -SINXY  -  EE*(DDS-DS*DS) 

UYY  =  -SINXY  -  EE*2.»U.-2.*Y*Y) 

UX  =  -2.*DFE*FE*EE  +  C0S(X-Y+.5> 

UY  =  -2 . ---Y--EE  -  C0S(X-Y+.5) 

U  =  TRUECX.Y) 

F  =  UXX  +  (l.+X*Y)*UYY  +  C0SCX)*UX-EXP(-X)*UY+3.*U 

RETURN 

END 
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JMMaeeasts# 

2000002000202 

TWO  DIMENSIONS  $  SELF-ADJOINT 
U( X » Y ) UXX$  +  W(X*  Y)UYY$  =  F(X.Y) 

HOMOGENEOUS 
X=0 . 5  .  UX=0. 

X=1.0  ,  U  =0. 

Y=0 . 5  .  UY=0. 

Y=1 . 0  ,  U  =0. 

FUNCTION  U(X.Y) 

COMMON  /CONCON/  PI 
DATA  PI/3. 14159265353979/ 

U  =  (CPI*COS(PI*X)*3IN(Pl9Y))**2  + 

O  (PI~-SIN(PI-:MX)*C03CPI*Y))*"2)*»8.A 
RETURN 
END 

FUNCTION  TRUE(X.Y) 

COMMON  /CONCON/  PI 

TRUE  =  SIN(PI*X)*3IN(PI*Y) 

RETURN 

END 

FUNCTION  CDXUCX.Y) 

COMMON  /CONCON/  PI 

CDXU  =  (&A)»UO<,  Y)--*(1.-1./(2,A))»PI»PI*SIN(2.*PI*X1* 
S  C03(2.~PI*Y) 

RETURN 

END 

FUNCTION  CDYU(X.Y) 

COMMON  /CONCOM/  PI 
CDYU  =  CDXU(Y.X) 

RETURN 

END 

FUNCTION  F(X»  Y) 

COMMON  /CONCOM/  PI 
PI 2  PI  PI 
SINPIX  =  SIN(PI-X) 

Sli'iPI  Y  =  SINCPI-Y) 


SI 


UJ  U}  OJ  to  U)  U)  LJ  U)  OJ  U)  LJ  LJ  LJ  LO  LJ  LJ  LJ  LJ  CJ  LJ  LJ  LJ  LJ  LJ  I U  IU  fV)  IU  l\J  *-*  —  tf  X  #  V  *  I  (,j  U  L-J  UJ  U)  LJ  LJ  LJ  LJ  LJ 


C02PIX  -  C”  r?T*xi 

cospiy  =  r  5  ^  i Wi'1 

TU  =  SINP.7'  ^JTN-s- v 
TUN  =  PI 
TL'NN  = 

TUY  =  P  <  r.  «••  f  tya  t  v«cn3r>  v  Y 
TUW  -  —  P  0 ::  Y  J 

f  -•  l!(X.V»--,TJS'N  +  TUYY)  +  CDXUCX. Y )»TUX  +  CDYUCX. Y)»TUY 

PZTLR  i 
end 


MACRO  20  * 

20000 00002000 
T'.n  DIMENSIONS 

L’"':  U.VS  -  EXPCTPUECX, Y')U$  =  F(X»Y) 


D I R  I CHL 

.ET 

.  U=TP'JZr  X>  Y ) 

N-O.’b'i 

.  U=TRUE i X. Y) 

i -o . no 

.  U='RUEiX,Y) 

Y=T . 75 

.  U=TPUE( X. Y ) 

FUNCTION  TnUE  ( X»  Y ) 

TRUE  =  10.*PHI (X)«PHI (Y)  +  C8.A) 

RETURN 

END 

FUNCTION  FlSSY) 

U  =  10.«?HI(X)«PHICY)  +  (&A> 
l-J  =  EXP  <  U ) 

UXX  =  10.aDDrHI(X)aPHI(Y) 

UYY  =  1  0  .  aprll 1  X )  *ODPHI  ( Y ) 

F  =  UXX  +  Ut’Y  - 

RETURN 

END 

FUNCTION  PHH2) 

PHI  =  »2-l.  )»Z«e;’P(-!00.«(2-.5)**2) 

RETURN 

END 

FUNCTION  DDPHI (2) 

DH  =  -200.»CZ-.5) 

EG  =  2.»2-l. 
h  =  f2-.5i»DH/2. 

G  =  Z»(2-l. ) 

DDPHI  =  ( -200.  a-G  +  2.*DH*DS  +  DH"DH*G  +  2.)«EXP(H) 

I 'IT URN 

END 


’ECR 

*  MACRO  21 


’  COR 


MACRO  22 


’  EnR 


»  MACRO  23  tt 

s  2‘j0''1PD0nOr''3''0 

1  TMO  5  Mi  3JCN0 

1  ;!J.Cf/.Y/.;-:'3  !!'C<'X.YVJYY3  +  DXX&CCX.  Y)'j; 

1.  D  Cr  X>  i  '  'JY~  =  F  i.  X  >  7 ) 

2  X= 0.  ,  'J  -0 . 

2  X  I.  .  J.  -0 . 

2  !  =  -].  ,  i  -  ,  R  j~f 

2  7-1.  ■  1  ■  ,  'i 

3  fu’-'t  -  on  :~/x., ,  > 

3  p-1  ■  o; i  .  o'?  '■  ■-  •’i 

3  rn'.i  PI/3.  •  •:  i  -.0 -■  :00?D~0/ 

3  TF-'JE  =  CD 3  <  ?  i  •  X  i  ■■  <  P '  n 

3  PPTIJPN 

3  end 


I  (a)  v,J  oj  LO  IJ  L<J  U)  LJ  bJ  L.J  (jU  'vJ  LJ  U3  OJ  LJ  Uj  L-j  LO  U  (O  Lo  U)  U)  U  U)  U 


,  1  1 


‘  I  Y  i  ■>'  1 .  ) 


.  •  j  :  •  1  -•  P!  V)+i. ) 

.  lw;1iPlVJ 

1 1  H 

.  i  i.V'  ."3  1  "H)ot°2 


.  ;  I  ;  -u Pm+l . ) 

.  1 1  --  C:1  '■  ■  ’IlFi  Y) 

.  ‘.'•’T.  y  -jn  -r  1 1  .  -ljV  j 

rr-j.  n"?<v.> 

.  ■=  -:-i ■•■i.iii' p:-:j^dip(Y) 

1  -=  ■  : i'-.-u i-j.'v:  h 

-  -i.  .V-  MV  'J|+(iB)*!H)o«2 
r-z iuph 

Fu'irnoM  yi 

rn'Mjii  co:-::ci!'  pi 

un  =  -Px-:-<3in*i;>i«;-:).»;pfY)+i.) 

UY  -  CCJ3:  PIwKrOiFiV) 

H  =  SPPTiUN-U,'.  +  T.-UV) 

M2  -  E:'pi.;vc  i. ^ -:-i  i. 3  5  )  )/H 

RcTUPH 

FUNCTION  3N!-!2f:<,V) 

n  i  CO:  ;cc >  •  pi 

UN  ='-rI-UiiKPI-N)  Nr(YHl.  ) 

UY  -  C"f  PI-X ■' :0 1 F ?  Y) 

H  =  SCPT.-T  •  !J'.'--UY) 

'  N  -•  -P!  •  .:7-C03'PI«IO»(P(Y>*l.) 

-pi---3If;',-l--x-!»Di.P(Y) 
i-: :  i  ij:  :--u  -sj  •  .:-j.  :yi.  h 

i; .  L .  ■>  :=  ?  f !-!/  (  ift*  C 13  )  »H  )  )  + 

a  ..  '  .  N  ‘  oH)-”-~-2)/H 

U  :.r:  ?■,  i  .?  -1  < "  .1  i  :-i )  ) 

P'TUP'I 

,  ;  i 

pi  ;r  fT-:i  o  ;:,v > 

rrp  ~n  •••  i  •  r:i 

I.’:  -  pv-  i ::  f <  V )  +  1 ,  ) 

tJY  =  P  .  ■  :  I  ■ :  U  P l  Y  i 

II  ■=  T •;  ij ^ijv) 

Ii'.  f  r~"C  '■  ■  ■  ~'CO 
I'  --  •;•>«  .  UiPCY) 

ki-  (n; y;;  UPVYii 

i,  ^  •  ••• ..  •  I  ./<  ».A+(*-B)«H)  )♦ 

r>  •  i.  '  h:?)/H 

0  1  i  ;  )  ) 

P  "  T  i  ■ r  U 


Y  > 


fry 


'Pi'Y'l-l-1.  i 


r 


ft:d 

function  dxljcx.Y) 

COMMON  /'COi'CGIV  PI 

UX  =  -P I  ;;SI  MI  PI  ”X  )■"■  ( PI  Y)  +  1 . ) 

!jV  -  CP3(PI*X)*D1PCY) 

H  =  50PT(UX«UX  +  UY«UY ) 

UXX  =  -PI -PI*CQS I PI*X) Q ( PC  Y )  +  l . 5 
UXY  =  -PI»SINfPI*X)*DlP(Y) 

HX  =  l UXeUXX+UY~  UX Y ) /H 
D.-U3  =  (£A)»(f.3)«SECHC(?.B)»H)**2*HX/'H 
3  -(&ft)*TANH(  (4Q)»H)«HX/H*»2 

PETUPN 
END 

FUNCTION  DYU3IX. Y) 

CO ii-ION  .'CQNCOM/  PI 

ux  =  -Pi«sirn?i*x)o(P(Y)+i. ) 

UY  =  C03iPI*X)-"DlP<  Y) 

H  =  SOBT  ( UX*UX  +  UY--UY ) 

UYY  =  C03(PI»X)«D2P(Y) 

UXY  =  -PI*5IN(PI*X)*D1P(Y) 

HV  =  (UX*UXY+UY::-UYY)/H 

-EXP I  H/  I  1A+ C  &B )  "H ) ) 

DYU3  =  (4A)"K&B)-SECHC(&B)*H)**2»HY/H 
3  -lift) *TftNH ( ( &3 ) *H ) *HY/H»«2 

PETUPN 
’3 

FUNCTION  FIX, Y) 

COMMON  /CONCOiV  PI 

U.X  =  -PI"SIH(PI"X)5(P(Y)  +  1. ) 

UXX  =  -PI«PI*COS(PI«X)*(P(Y)+l.) 

UY  =  C03(PI*X)*D1P(Y) 

UYY  =  COS(PI*X)*D2P(Y) 

F  =  DiCIX.  Y)*CUXX+UYY)+DXWi,CCX.Y)*UX+DYW4C(XtY)*UY 

PETUPN 

END 

FUNCTION  PIX) 

Dft'fft  ft.  B,  C  '1.0.  0.0.  &Q/ 

XI  =  .5  -  C 
X2  =  .5  +  C 
IF  (X  .LT.  XI)  GO  TO  I 
•r  IX  .GT.  X2)  GO  TO  2 
T.PHI  =  3  -  ft 


DX  =  X2 


XI 


1 


P  =  A  +  DPrII  *  I X-X 1 )  ( DX»*3 )  -3 .  *DPHI*  ( X-Xl )  *»3*  ( X-X2 ) 

3  'DX 4  +  S .  «DPHI « I  X-Xl )  »*3* ( X-X2 )  **2xDX»*5 
PETUPN 
P  =  ft 
PETUPM 
2  P  =  B 
PETUPM 
END 

FUNCTION  DIP(X) 

DATA  ft,  B,  C  /l.O.  0.0.  &D/ 

,11  =  .5  -  C 
;  2  =  ,  5  +  C 
IF  IX  .LT.  XI)  GO  TO  1 
IF  IX  .GT.  X2)  GO  TO  1 
PPM  I  =  -  A 

-  >'i 

DIP  =  _3 .  •"•DPHI"-  (X-Xl)  **2/  ( DX**3 )  -9 .  *DPHI*  C  X-X  1 )  «*2»  ( X-X2 ) 
0  /PX*« 4  -:-13.*DPHI*(X-Xl)»*2*(X-X2)**2/DX**5 

Z  -3.  "-DPHT  :  (X-Xl  )  -"""-3/DX=*4 

Z  + 1 2 .  - DPIH I  •»  I  X-Xl ) ( X-X2 ) /DX**5 

PETUPM 
1  TUP  =  0. 

PETUPM 

END 

Flj-'CTIOM  D2P I X ) 

DATA  ft.  3,  C  /l.O.  0.0,  *3/ 

XI  =  .5  -  C 
NO  =  .5  +  C 
tf  (X  .LT.  XI)  GO  TO  1 
IF  (X  .GT.  X2)  GO  TO  1 

t.:i  =  n  -  ft 
nx  =  >’  3  -  xi 
03  =  DPHI/DX" "3 


G4 


C4  =  -3.*D?HI/DX*»4 
C5  =  S.*DPHI>DX**5 

D2P  =  6. *C3~ ( X-Xl ) +G. *C4* ( X-Xl )*(X-X2)+ 

$  G.*C4*(X-X1)**2+6.*C5»(X-X1)*(X-X2)*»2+ 

S  12.*C5*(X-X1)**2*CX-X2) 

$  +  2.*C5*(X-X1)**3 

RETURN 
1  D2P  =  0. 

RETURN 

END 


’  EOR 

***>fwC ::  *  a  a  *  *  * 

*  MACRO  24  * 

*  *  #  ■*  *  -x-  *  ■*  *  *  a 

*  2000200000022 

1  TNG  DIMENSIONS 

1  UXX$  +  UYY$  +  W(X,  Y)UXS  =  F(X,Y) 

2  NIXED  $  HOMOGENEOUS 

2  X=0.1  ,  NIXED  =  (&B)U  +  (l.)UX  (l.)UY 

2  X=1 . 0  ,  NIXED  =  (&B)U  +  (l.)UX  +  (l.)UY 

2  Y=0 . 1  ,  NIXED  =  (&B)U  +  (l.)UX  +  (l.)UY 

2  Y=1.0  .  NIXED  =  UB'U  +  (l.)UX  +  (l.)UY 


Y=1 . 0  ,  NIXED  = 
FUNCTION  TRUE(X.Y) 


MACRO  24  PARAMETERS 
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3C 

«- 

0.25 

I 

100 

I 

-0.10 

I 

1 

* 

3C 

* 

I 

I 

I 

* 

3C 

■if 

0.25 

I 

1000 

I 

-0.10 

I 

2 

* 

3C 

* 

I 

I 

I 

* 

3C 

•5 

0.50 

I 

1 

I 

-0.01 

I 

3 

* 

3C 

* 

I 

I 

I 

* 

3C 

* 

0.50 

I 

10 

I 

-0.10 

I 

4 

* 

3C 

* 

I 

I 

I 

if 

3C 

* 

1.00 

I 

1 

I 

-0.10 

I 

5 

* 

3C 

■» 

I 

I 

I 

* 

3C 

* 

1.00 

I 

10 

I 

-0.10 

I 

G 

* 

3C 

X 

I 

I 

I 

3C 

1.00 

I 

100 

I 

-1.00 

I 

7 

* 

3C 

* 

I 

I 

I 

if 

3C 

* 

1.00 

I 

1000 

I 

-1.00 

I 

8 

* 

S«*!S  »»*»*»*«■****» 


REAL  DERUSL(6).  GRIDC20).  TABLE 

S  TIBI ( 100 ) ,  T1B2( 100),  T1B3 

5  T2B1C100),  T232U00).  T2B3 

$  T3BK100).  T3B2C 1 00 ) »  T3B3 

S  T4BK100),  T4B2(  100 ) »  T4B3 

55  T5BK100),  T5B2(  100 )  >  T5B3 

S  TGBK100),  T6B2(  100 ) »  TG33 

S  T7BH100),  T7B2(  100 ) »  T7B3 

5  T8BK100).  T8B2C100).  T3B3 

EGUIUALENCE  (TABLE! 1*  1)  *  T&DB 

S  (TABLE!  1.  G)  »  T8.DB; 

5  (TABLEa.il)  .  T&D3 

0  (TABLE!  1.  1G)  .  T&DB- 

DATA  NGRID.  NGRDD/20,  20/ 

DATA  GRID/0. 1000000,  0.1473984 
SO. 2834737,  0.33G3421,  0.3S42105 
S0.52G3153,  0.573G342,  0.G21052S 
SO . 7631579,  0.31052G3,  0.3573848 
51.0000000/ 


DATA  NGRID,  NGRDD/20, 
DATA  GRID/0.1000000, 
50.2894737,  0.33G3421, 


,  TABLE( 20, 20 ) , 

),  T1B3( 100 ) ,  T1B4C 
),  T2B3(  100) ,  T234U 
),  T3B3C100),  T3B4C 
),  T4B3U00).  T4B4U 
),  T5B3( 100) ,  T5B4C 
),  TGB3( 100 ) ,  TS34C 
),  T7B3( 100 ) ,  T7B4C 
),  T3B3( 100) ,  T8B4C 
,  T&DB 1(1)), 

,  T&DB2C 1 ) ) , 

,  T£D33( 1 ) ) , 

,  T&DB4C I ) ) 

/ 

1473S84,  0.19473S8, 
3342105.  0 .4315788, 
621052S,  0 . GG8421 1 , 
3573948,  0.90E2G32, 


0.2421053, 
0.4783474, 
0 . 71578S5, 
0 . 952G31G, 


APPROXIMATE  SOLUTION  OP  PROBLEM  USING 
P3-C1  COLLOCATION  (3  X  3  GRID) 


DATA  TIBI/  5. 94 7140,-1. 935312, -1 , 3415S5,  -.S432S1,  -.3G70SE, 
S  -.275050,  -.190552,  -.135905,  -.104104,  -.079G19,  -.062147, 
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3 

<*s 

-.043331, 

—  #  ^  ^ 

- .  r'  - - , 

-.1^0375, 

-.0167-3, 

3 

<*j 

-.0130-3, 

-  .  '.:i  Zz\  7 

- .  •;>  .  ... 

~2  •  ;  5  > 

-3.-  :  0 

—  .  tO  '.J  Z  7  1 3 » 

3 

s 

.  32-1!  33, 

, 1  o  3 . 

.  .;7  , 

.•47033, 

.3-5  '•»•!, 

. 2477  : 1 , 

3 

$ 

.2!  • 

■  r-  ~ 

7  2;  “*  7; } 

,  i .  3 » 

.  vj  1  j  3 .  j  t 

.  G7.7f  21 , 

3 

.  *  '  i  “57T « 

,  '  i  ,  3  > 

*  ‘  *  "■*  -  1 

~  '  1  i 

1  '  ,  '*  ?*»''»  * 

-3 . 33-'‘!£.-: , 

3 

0 

1  •  O  .  ^  .  2  > 

1.3  :  1. 

zz* 

.  272. 

.  ?c27'- r:5* 

3 

^  ~  ^ 

#sj  “  ", i_ , 

•  v-  •  :  ;  .1 5.  % 

.7 

.2  .5123, 

.17  0  ’.'05, 

3 

.  1  oOj  *•:•/* 

.  1  1  o-J  -  7. 

•  2  2 

.  '-''2  .  7  ‘  '3  7 

.  0-';323. 

.023'  :  •. 

3 

c; 

’  'I.' :  "'?» 

_p  2  -|  i  p  ^  ^ 

3.2737:3, 

■2.5' 

1  '  -  ~j  . 

1,3’,  ZjZZ  * 

3 

0 

i  .  :  >Z . 

,  £  722  1 . 

.•"  1. 

t“  ,  1  -  >  ’ 

•  ~J  i  .  .  j*)  » 

.  -  .  .  ^  Z  u  • 

? 
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3 
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-1 ,727535, 
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3 

5 
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3 
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3 
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~ 
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.02-712, 
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A 

v  v  - .  n , 
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t  '  '  ■  .1  9 

.<•'12223, 

.002032, 

-2,087253. 

Ip 
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i  .  -  a  -  -  q ., 

“222°* 

.723323, 

.535353, 

.465072, 

3 

a  ■;  i  d  , 

.  '!•  v-;. 

."3  .530, 

.143523, 

.143244, 

.117153, 

A 
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■ "  2  7  2  "  i 

t  V*.  10  o4. 

."'03304, 

.022771, 

.019142, 

- 
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- 1  .  -  ■ .  ~  •  ‘7 

? ,  T) ;  r>27 , 

1.707; 53, 

1.073354, 

.662523, 

3 

5  3  ,  , 

.132-33, 

.227-33, 

.273 !7i. 

.215765, 

; 

!  '  ‘  ", '/  t 

5  ■ .  .i  •  "  , 

7  0  *.?% 

,'v.  •  0 9 , 

.073732, 

. 05*233. 

”  '  < "  « 

-i  ■  , 

f  0  j  "5_/.22 . 

-i  .  n-.:  5?iTf 

1.323 332, 

1.554531, 

1 

;  i  “  •’• . 

"'7 

«  «  1  '  >  9 

.'  '  30, 

.43  ’023. 

,367103, 

**■ ■  ■  •  ' , 

•  ,  .  , 

.  *  "  7, 

.  1 5  -  5 1 3 » 

.121219. 

.  105254, 

■j 

,  047i3- •* 

•  2:7 ).  3 » 

.003337/ 

r,.- 

Vi  "i  r '  9  - 

_  ->-7  "7 

1  .  •  j  j  !  * 

1 .7-3"  25, 

.  33  ‘  ‘  'i.i . 

.  835165, 

„  .  ■  *  7  :  , 

/  •  o. 

, '  >C3"'3* 

,  30  ■ 

.233551, 

- 

9  V  .  ’.  ?* 

.  j  9 

■  ‘  4‘  7* 

•  '*7.7777  • 

.Or 35 44, 

.  ysM  , 

1  , 

'7 '  , 

- .  -  "  "  -  9 

1.13*053, 

1 . 130  737, 

v; 

r  ' "  v  ■» 

.  -  ‘  2> 

.  ■  ■  '51. 

.35743  3. 

/- 

‘7, 

■  * 

, < '3541. 

.  11  i  134, 

■ :  -3. 

~  'it 

1 

•  J 

35  .3  VO, 

151, 

J) 

J 

.413972, 

. 355"77 , 

.231753, 

.246212. 

.204708, 

.168703 

J 

$ 

.  137X  3^ 

. ■ 03S5S* 

. 033333. 

•  ’ j  b  5  9  -j  4 1 

. 042338. 

.022854 

3 

b 

.1-  31?  i. 

-.437793, 

. 723330. 

. 32"?S3< 

.633632, 

.618684 

3 

3 

.57 3333. 

. 450009, 

.331352, 

.332033, 

.230297, 

.235467 

3 

3 

.  '  :s. 

. !  G2-1 7*' » 

.132313. 

.105390, 

.031933, 

.060325 

3 

V 

.O-.O-b.'S, 

.021743, 

.003810, 

-.422185, 

.730636, 

.732600 

3 

b 

•  6:'-23:,-2. 

.551127, 

.434620, 

.418317, 

.353366, 

.308432 

3 

3 

.231214, 

.8209! 1, 

.135549, 

. 153164, 

.125074, 

.099651 

3 

5 

.  .bf'b9* 

.053191. 

.037255, 

.013343, 

.003520/ 

W  1— 

3 

AT h  T733/ 

-.330913, 

.606361, 

.628629, 

.531917, 

.490521 

j 

0 

. 434631 , 

.3? 3203. 

.323332, 

.232735, 

.241110, 

.204526 

3 

3 

.  1 1750, 

. 142033. 

. 1 15514, 

.091553, 

.063312, 

.050319 

3 

5 

.032338, 

.017294, 

.003043, 

-.310461, 

.512176, 

.544195 

3 

5 

•  4  n  \  5 7  1 » 

. 433345, 

.336619, 

.339434, 

. 2S5752, 

.255672 

3 

S 

.213375. 

.1-23102, 

.156250, 

. 123932, 

.104154, 

.081415 

3 

s 

. 060737  * 

.042352, 

.026370, 

.013146, 

.002432, 

-.267580 

3 

.428775, 

.431230, 

.403237, 

.330235, 

.340470, 

.299551 

3 

3 

.222083, 

. 82771G. 

. 134944, 

. 165914, 

. 139075, 

.113825 

S 

.'I  873, 

.053231, 

.043314, 

.031332, 

.017202, 

.006384 

3 

3 

.  O  i  V'84, 

-.331414, 

.332950, 

.403063, 

. 353530 • 

.323385 

3 

.  C  .  2  '■  ^  w  « 

.251437, 

.223137, 

. 133333, 

.  170817, 

.144347 

j 

.  1201789, 

. 037331 » 

. 0762S9, 

. 055569, 

.035924, 

.018395 

j 

3 

.  i  0-.331. 

U 02344* 

-.000841, 

-.  1S332S, 

.339504, 

.353723 

3 

x> 

.301531, 

.831054, 

. 251SS2* 

.222401, 

. 134991. 

.163430 

3 

5 

.  l-i-1924. 

. 122535, 

. 101232, 

.030503, 

.060595, 

.040544 

L 

S 

.020334, 

,001543. 

-.013779, 

-.013363, 

-.003537/ 

3 

data  T7B4/ 

170206, 

.290899, 

.293050, 

.250600, 

.232711 

3 

0 

.803071, 

.  1331SS, 

.  160353. 

.133142, 

.118431, 

.033535 

3 

'3 

. 031123. 

.032305, 

.044613, 

.025335, 

.004006, 

-.018508 

3 

5 

- . 1 J  3  G  3  3  B » 

-.045554, 

-.011774, 

-, 142107, 

.224905, 

.236045 

3 

5 

. 153022, 

.133432, 

.163214, 

. 143433. 

. 125093, 

.107858 

3 

5 

. 03130S, 

.076119, 

.060939, 

.045539, 

.029387, 

.011614 

3 

3 

-.003974, 

-.037323, 

-.073336, 

-.099355, 

-.022593, 

-.114640 

3 

5 

.125823, 

. 134444, 

.144-734, 

.132090, 

.116396, 

. 100336 

3 

5 

. 037590, 

.075434, 

.062939, 

.051359, 

.040563, 

.028478 

3 

5 

.0 15359, 

.000623, 

-.017030, 

-.042533, 

-.138151, 

-.282689 

3 

3 

-. 030335, 

-.033339, 

.128752, 

.114429, 

.084707, 

.076481 

3 

3 

. 08S482, 

.057101, 

.049136, 

.042006, 

.034644, 

.028103 

3 

5 

.021313, 

.013353, 

.006062, 

-.004365, 

-.013514, 

-.022363 

3 

5 

-. 172769, 

-.522002, 

-.193543, 

-.035473, 

.021226, 

.023300 

3 

5 

. 0 1G62S, 

.014315, 

.012416, 

.010604, 

.003026, 

.007662 

3 

3 

.005341, 

.005053, 

.004104, 

,002340. 

.001152, 

.001070 

3 

3 

-.005397, 

.001337, 

-.030332, 

-.163443, 

-.110505/ 

3 

DATA  T331/ 

.012323, 

-. 124150, 

-.069442, 

-.030238. 

-.022530 

3 

5 

-.015530, 

-.011030, 

-.00-3222, 

-.003270, 

-.00484-4, 

-.003813 

3 

S 

-.003044, 

-.002445, 

-.001376, 

-.001597, 

-.001230, 

-.001003 

3 

5 

-.000757, 

-.000437, 

-.000026, 

-. 151312, 

.909453, 

1.126745 

3 

S 

.571387, 

,743165. 

.514700, 

.402438, 

.304620, 

.215520 

3 

0 

. 153323, 

. 140513, 

.109359, 

.  0S2K1  ♦ 

.071490, 

.058535 

3 

3 

.0-7003, 

.134555, 

.025744, 

.013776, 

,000364, 

-.140881 

-> 

j 

3 

2.585702, 

1.325271, 

1.305422, 

*  33'.  5 1 9 » 

.735677, 

.564774 

3 

3 

.  :T-  853. 

.  334347, 

.85-3243, 

.212230, 

.170330, 

.138702 

3 

3 

.110735, 

.03^333, 

,03333-7, 

.052101, 

.036503, 

.019780 

3 

3 

. 0 00433, 

-.105303, 

2.517933, 

2.014113, 

1.331533, 

1.037765 

3 

■j 

.3-3503, 

.£27527, 

.492316, 

.331457, 

.313779, 

.252546 

3 

3 

.  £!  * v  - b 4 « 

.  1S5G75, 

.133131, 

.  103259, 

.082351, 

.061057 

3 

3 

.  04 1.875, 

.021823, 

.000447, 

-.033-277, 

2. 172311. 

1.803325 

3 

3 
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.313013, 
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.513001, 
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3 

3 

«  ;jo9‘o0  j 

,274763, 

. 223570, 

.  132123. 

.146418, 
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3 

T 

3 

-*>  -  •  **>  "7 
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•  QGG 1 03  * 

.044243, 
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3 

r 

070013, 
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1.520913, 

1.143743, 

.S572S8 

3 

3 

. <  J  ?  r  * 

.332313, 

.515165, 
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.281995 

3 

3 
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. 152133, 

.120342, 
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3 

3 

.0  :883, 

. 0 r 24 40, 

. 0094G2. 

-.057477, 

1.434415, 
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J 

3 

1  .  '  303. 

.  0  3  b  2  3  3  ♦ 

.725771, 

.533803, 

.434532. 

.410286 

3 

.3  7.3  .93, 

. 275313, 

. 230906, 

•  1 S3S33 ♦ 

.  153123, 

.121826 

3 

3 

.'  :'-3, 

.  063:39, 

.0:4336, 

.022343, 

.000453, 

-.047854 

} 

3 

1  •  .  j  3  -3  ? 

1 . 1 1  3  c‘.  0  f 

•  S'V.S33* 

*  73-330 * 

•  6c3 1 22  * 

.557806 

J 

3 

.  "1  b  *  ..  '.r9« 

.231765, 

.  3-88343. 

.271391, 

.225531 » 

.185356 

3 

3 

.130587, 

.113337, 

. 033235, 
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.044014. 

.021533 

3 

0 

.0004  :9, 

-.040341, 

1.003753. 
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.303024, 
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3 

3 

.804328, 

.514224. 

.  4357j5, 

.337751, 

.303445, 

.259346 
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3 

£> 

.216041, 

.173263, 

.145063, 

.115531, 

.033337, 

.  0E4E92, 

3 

5 

. 042227 • 

.02092-.. 

.000432, 

-.034233, 

.906533, 

.356456, 

3 

5 

.702622, 

.625390, 

.544327, 

.465133, 

.333777, 

.340644, 

3 

5 

.207063, 

.242343, 

.203399, 

.16^974, 

. 137052, 

.109003, 

3 

~r- 

. 003669, 

.060736, 

.033361, 

.019313, 

.000403/ 

w  W 

3 

DATA  T0B3/ 

-.029370, 

.760564, 

. 737183, 

.613029, 

.555773, 

3 

S 

.436355. 

.421144, 

. 3E233E, 

.311534, 

. 2&3033, 

,224586. 

3 

s 

. 133521, 

. 155933, 

.127032, 

.100333, 

.076731, 

.055166, 

3 

s 

.035419. 

.017393, 

.000356, 

-.025232, 

.646563, 

.637151, 

3 

3 

.541716, 

.490433, 

.431902, 

.376305, 

.323205, 

.281173, 

3 

$ 

.240374, 

.204131, 

.  17i543, 

.141311, 

.114361, 

.030304, 

3 

s 

.067325, 

.047613, 

.029623, 

.014036, 

.000280, 

-.021797, 

3 

s 

.578200. 

.559233, 

.471265, 

.423024, 

.379095, 

.331020, 

3 

s 

.233192, 

.249320, 

.213563, 

. 131336, 

.  152733, 

.125503, 

3 

$ 

. 100940, 

.077790, 

.056495, 

.037545, 

.021343, 

. 008S58, 

3 

s 

.000155, 

-.018770, 

.430933, 

.475333. 

.406673, 

.370138, 

3 

$ 

.323115, 

.287323, 

.251039, 

.217530, 

■  1  8dS67 , 

. 153614, 

3 

$ 

.  152653, 

.103236, 

.035488, 

. 063733, 

.043229, 

.024354, 

3 

$ 

.009312, 

.000340, 

-.000069, 

-.016065, 

.420251, 

.408238, 

3 

s 

.344744, 

.313372, 

.277315, 

.243416, 

.212435, 

. 184359, 

3 

$ 

.157663, 

.133713, 

.111141, 

.033303, 

.063671, 

.048071, 

3 

3C 

3 

5 

.027627, 

.003637, 

—  •  006643, 

-.012317, 

-.000461/ 

DATA  T8B4/ 

-.013563, 

.356172, 

.340725, 

.234037, 

.257076, 

3 

5 

.227350, 

. 193706, 

.173215, 

. 150157, 

. 127331, 

.107910, 

3 

5 

.033771, 

.063761, 

.051311, 

.032011, 

.010300, 

-.010686, 

3 

5 

-.030504, 

-.035025, 

-.001270, 

-.011102, 

.276353, 

.267244, 

3 

$ 

.222391. 

.199315, 

.175645, 

.153331, 

.133165, 

.114727, 

3 

S 

.097603, 

.031535, 

.065338, 

.050515, 

.034431, 

.017094, 

3 

5 

-.002303, 

-.023346, 

-.067240, 

-.079323, 

-.002353. 

-.008629, 

3 

s 

.227375, 

.201050, 

.156672, 

.133058, 

.121411, 

,104551, 

3 

$ 

.090364, 

.077329, 

.065074, 

.054000, 

.042363, 

.030980, 

3 

s 

.013915, 

.004535, 

-.011347, 

-.033173, 

-.126577, 

-.268991, 

3 

s 

-.012511, 

-.005571, 

. 139337, 

.114633, 

.084324, 

.073844, 

3 

$ 

• 0G3GS3, 

.054263, 

.043549, 

.033973, 

.032333, 

.026890, 

3 

$ 

.020740, 

.013335, 

.006933, 

-.002251, 

-.017543- 

-.011510, 

3 

s 

-. 1G3935. 

-.520170, 

-.027095, 

-.000239, 

.003324, 

.002658, 

3 

$ 

.001830, 

.001623, 

.001377, 

.001170, 

.000993, 

.000837, 

3 

$ 

.000691, 

.000551, 

.000413, 

.000247, 

.000093, 

-.000117, 

3 

5 

-.000745, 

.000224, 

-.006217, 

-.024134, 

-.002506/ 

3C 

3C  INTERPOLATE  NUMERICAL  SOLUTION  BV  CUADRATICS 
3C 


3  CALL  QUADRD(X,  Y»  TAELE, GRID, GRID, NGRID,  NGRID, NGRDD, NGRDD, DERUSL) 
3C 

3  TRUE  =  DERUSLC6) 

3C 

3  RETURN 

3  END 

3  FUNCTION  UCX.Y) 

3  DATA  PI/3. 141532656/ 

3  T  =  &A-PI-Y 

3  U  -  3 .  •-•T:-'C05 ( T«X )  /S I N (  T*X ) 

3  RETURN 

3  END 

3  FUNCTION  F(X.Y) 

3  DATA  PI/3. 141532656/ 

3  T  =  &A*PI*Y 

3  F  =  ctC*>T*C0S(T*XVSIN(T*X)«*3 

3  RETURN 

3  END 


’  EOR 


-■  MACRO  25  * 

*  2000200002002 

1  TWO  DIMENSIONS 

1  (-X-  -& A  )UXX3  -  (Y*--iA)UYY3  -  (&A“X**«A-1 .  )  )UX5  - 

1.  (j;A-2Y»i>(&A-l.))UYS  +  CCX*Y)»»&A)U3  =  FCX.Y) 

2  DIRICHLET  S  HOMOGENEOUS 

2  X=0 .  »  U=0 . 

2  X=l.  .  U=0. 

2  Y=0 .  .  U=0. 

2  Y=1 .  .  U=0. 
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3  FtVTTr-E'i  —  J"  v.yi 

3  T::._  =  3.  .  -  .i..-y?(Y)*(X-XaXle(V-Y»Y) 

3  -'TV  | 

3  W 

3  fl'-'Ct:;-)  f:\.y> 

3  3:-  S  -  .-'  V  .1 

3  Exrv  =  r  > 

3  FW  =  3.  -'C  =v 

3  >.  iW  =  >■  -  V..  : 

3  vu  =  E  W  -  ' ;  .  '»v:-;yy 

3  TUN  =  EXEV3--U.  -  X  -X»XY»YMYY 
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3  CALL  OUADPDCX, Y,  TABLE.  GRID. GRID, NCPID. NCPID. NC^DD. NGRDD. DERUSD 
3C 

3  TRUE  =  DZRU3LCS) 

3C 

3  RETURN 

3  Erin 

3  FUNCTION  WrX.Y) 

3  U  =  1. 

3  IF  (X  .LT.  0.  .OR.  Y  .LT.  0.)  RETURN 

3  U  =  OA 

3  PETURi  I 

3  END 

3  FU1  ICTIO’I  CDXU(X.Y) 

3  cn/u  =  0. 

3  PC TURN 

3  END 

3  FUNCTION  CDYU(X.Y) 

3  CDYU  =  0. 

3  PFTUPrt 

3  FDD 


•FOP 
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T2B3C 100), 


T  1B4( 100 ) , 
T234( 100), 


3 

5 

T3B1C100),  T382(100),  T3B3(  100),  T3 

34(100), 

3 

s 

T43K100),  T-:B2U00).  T4B3(100),  T4 

34(100), 

3 

S 

T53K100),  T5E2U00),  T5E3(100),  T534C100) 

3 

EQUIVALENCE 

(TABLEC 1.  1)  ,  UBBKl)), 

3 

S 

(TABLEC1.  S)  ,  UB32(1)), 

3 

S 

(TA3LEa.ll)  .  T4BB3C1)), 

3 

S 

(TABLE (1  aE )  .  T6234 

(1)) 

3 

DATA  MGPID, 

NGPDD,  GPID  /20,  20, 

0.000000,  0 . 052B31S, 

3 

SO. 

1052S32. 

0. 15733-17,  0.2105233, 

0.2E315 

79,  0.3157335, 

3 

00. 

363*'!  2!  1 , 

0.«1?1052S»  0.47222^.2, 

0.52B31 

53,  0.5783 

474. 

3 

SO. 

G315733. 

0.3342105,  0.7333421, 

0.7334737,  0.3421053, 

3 

SO. 

3343323, 

0.247333-1,  1.0000000/ 

3C 

3C 

AP 

FPCX  !l-‘A"E 

22_UTI7'i  Q-  PPG2LEM 

J3INS 

3C 

P3 

-Cl  CjJ-B 

3,-Tiai  (3  X  3  GPID) 

3C 

3 

DATA  TIBI/ 

.•00000.  -.017544,  - 

. 035033, 

0^2532, 

-.070175 

3 

3  ~ 

.037713. 

—  i  3  ^  7  ■»  “ 

.14:351, 

-. 157335, 

-.175439 

3 

s  - 

. 133:32. 

-.210523.  -. 2' 3070,  - 

.2  13314, 

-.233153, 

-.230702 

3 

3  — 

.  2332^-’  -3 » 

-.315733,  -.233*33, 

#  n  :  -75/14  f 

-.003331. 

-. 032ES2 

3 

3  — 

__  f 

-.  23310,  2 35,  - 

.  1  1 Z  3  j  3 » 

-.122310, 

-.140333 

3 

3  ~ 

. 1273  '3. 

- .  . ' :  3  4 ,  - .  .  :  r  “  j : ,  - 

.  2  ■ r  r  3  0 , 

-.323053, 

-.245657 

3 

3 

.  r  1  3  "  a  .1  * 

-  -  3  'i ~  - 1  rr ,  - 

^  ^ 

»  j 1 3 ■ o3» 

. 0350E8 

3 

s  - 

.  003  O'  3, 

'7: 1,  ~.'V,':72»  - 

•  07  j  _  j  • 

-.0271S5, 

- . 104543 

3 

3  — 

1  r-  i  f 

-  f  ?  *  —  •  i  r  f  '  ^  l  »  ~ 

.1  ~  "  :i  ’ , 

.  :  :3iS. 

-.210333 

3 

0  - 

.  r  ”  2 <•  5  j* 

-,^.51  33,  — 

^  ^  *  3 , 

-.231:22- 

- .  3C5ri48 

3  — 

.202  -03. 

•  ■ _  '2  J  ?!  *  •  rj '  .•  *  i  ^  3  *  ~ 

. ' 

-.045334, 

-. 0CS35! 

a  — 

_  \  ■ , 

f3?:-3,  - .  1 2  ’  7  3 ,  - 

r'a’. 

-. 157144. 

-. 174675 

3 

z  - 

.  03'.?'  3 ;. 

j  ,  — .  r  ..  ~  .  3 ,  ” 

O  ‘  -'  3' 30 

-.=33719, 

-.274250 

3 

3  - 

_  ~  •'  '  .  3  "  ~  f 

-  _  •  ~  ■  j  #  lP, 

.  r'^0 . 75, 

.'23225, 

-.011031 

3 

3  - 

.  -?3'  " 

“  •  .  ‘  .’  1  1  ,  —  »  1  >  1  3  J  *  — 

.  ’  0 1 ;.  3 1 , 

~ . 1 17733* 

-. 13~7C9 

3 

3  - 

.  1  '•  , 

-  .  ,  :  3  ■  .  i  ,  -  .  •  '2  ■'  "  r‘ ,  - 

#  rj  .3-  -r  Tif 

-.2?  314. 

- . 235333 

3 

3  - 

.  2  3  0  2  0 . 

j  .  'i  —  •  2  •  • .  j  .  • ,  ~ 

. r 

-.233153/ 

*7  r 

3 

3/ 

Tli  ~\ "2  ' 

•  0.  .  " 

.  '  :.~S3, 

33. 

- . 057G"1 

j 

■j  — 

,  _  -  j  i  .  !  :  f-  ■ 

.  _"L  j « 

-. '32  24, 

-.  1704':'^ 

3 

3  - 

.  ?  '  ’  J  » 

. :  '  ‘  j , 

-.2  .3=30, 

-.233  nr 

3 

3  - 

.2  '  . 

■> , 

.  '  '  , 

.■'5-370. 

.  n  1 

3 

3  - 

,  "  i  ;  , 

.  - 

-.  1  '.0:71. 

1  P7j??c 2 

3 

3  - 

;  .  •  ~  '  "  . 

-  _ 

.  '  2  30, 

-.21  2:04. 

-  •  C  BGOo 

3 

3  - 

,  -33'.  3!  , 

^  ,  -  .  -  .  2  ’  ■  G ,  - 

• '  •  3  '. , 

-.  2--2070. 

. ! 2330 7 

3 

3 

.  r-7/’  -  'J, 

.  2  .3  3.  -.  ’  0  J,  - 

.  ‘  "* :  J  G  7 , 

-. I  33014, 

-.031230 

n 

3  — 

.  1 0 ' 2  '  i 

~  .  i  ,  —  •  -  .  » 

*  '  "■  ,  .  ,  , 

1 “j 122. 

-  130743 

hi 


J 


1 

-  .  f  ’  '"r'l~7  f 

- .  I~"71 14, 

- . 5 "C34 7 , 

•  ij  3  » 

.231327, 

.836026, 

3 

9  ,  .  •.  30  # 

.  -."'419, 

."23714, 

.  4  '34  JO , 

-.039156. 

-.118312, 

3 

-  <  1  ,  .•  i'i  y? , 

-  .  '  573  1. 

-.7J7  62-’.  4, 

- . 222525. 

-.335142, 

-.404138, 

3 

TH 

, 

-. 453513, 

- . 42355 1 , 

-.512314, 

-.526316/ 

r* 

y-  1  -^3  - 

. 53531 5. 

.133620, 

.352160, 

.272731, 

. 198021, 

.i 

y 

.  ’  ,y '  .  -j  f 

.  ‘31323, 

-.001184, 

-.060319, 

-.116134, 

-.168774, 

v 

1  :  .  3  i  t 

.=:-.’ -.3i> 

-.2=7092, 

-.3461 17, 

-.331049, 

-.411518, 

-.437332, 

-.••.53119. 

-.-173234, 

.572947, 

.491546, 

.408903, 

3 

- 

.333230. 

.257037, 

.  !  3r  447 , 

. 121613. 

.059315, 

.000365, 

3 

-.  ‘0^3,  3. 

-.103019, 

-.  157527. 

-.203345, 

-.246820, 

-.286226, 

3 

“ 

- .  321 333. 

-.353373. 

-.380511, 

-.403132, 

-.421053, 

.631579, 

3 

.  2  . 00 1  ’  7 . 

.  •:35235, 

.233325, 

.317561, 

.243952, 

.183904, 

3 

$ 

. 122120, 

. 533471, 

.0073i 

-.044743, 

-.094416, 

-.141044, 

3 

$ 

-.134554, 

-.224339, 

-.861 343 , 

-.294230, 

-.323079, 

-.347887, 

3 

S 

“  ■  333-12 1 . 

.634211, 

.602243, 

.524256, 

.450034, 

.379398, 

3 

$ 

.312157. 

.2-3120, 

.137090, 

.123944, 

.073539, 

.020951, 

3 

5 

-,923D-;3. 

-.O-S0G9, 

-.  120310. 

-. 161519, 

-.193540, 

-.234176, 

3 

f, 

- . 225173. 

- .  232446 , 

-.315739, 

.736342, 

.557986, 

.582921, 

■*> 

'$ 

.5! 1174, 

.4 -:2595. 

.377039, 

.314366, 

.254292, 

.136772, 

$ 

. 141730. 

.033112, 

.033916, 

-.003753, 

-.054032, 

-.096440, 

S 

-.135133. 

-. 172335, 

-.206233, 

— . 233465, 

-.253158/ 

3 

D 

AT  A  T2B4/ 

.739474, 

.714222, 

.642433, 

.573566, 

.507419, 

3 

5 

.  4-12312, 

.232753, 

.323329, 

.267063, 

.212449, 

.159779, 

3 

3 

.105209, 

.060791, 

.014356, 

-.023609, 

-.071304, 

-.110591, 

3 

'3 

-.143704, 

-.130213, 

-.210526, 

.342105, 

.771121, 

.703039, 

3 

3 

. 637432. 

.574165, 

.512313, 

.453543, 

.325961, 

.340076, 

3 

S 

.235332, 

.233193. 

. 132134, 

.132313, 

.085129, 

.039242, 

3 

$ 

-.004764, 

- .  043724, 

-.033407, 

-.123530, 

-.157835, 

.894737, 

"> 

3 

.323223, 

.764759, 

.703040, 

. 642368 , 

.524352, 

.527060, 

3 

3 

.470332, 

.416093. 

,362431. 

.303772, 

.252290, 

■208103. 

3 

3 

. 153715, 

.111037, 

.064433, 

.013366, 

-.024005, 

-.065828, 

3 

3 

-.105263, 

. 947363. 

.336310, 

.823426. 

.771059, 

.714489, 

3 

3 

. 653313, 

.603766, 

.549343, 

.495547, 

.442419, 

.389741, 

3 

3 

.337707, 

.236357, 

,235381. 

. Ioo350, 

.135352, 

.086930, 

3 

5 

.039373, 

-.007519, 

-.052632, 

1.000000, 

.947368, 

.894737, 

3 

3 

. 842105, 

.733474, 

.736342, 

.634211, 

.631579, 

.578947, 

3 

3 

.526316, 

.473684, 

.421053, 

.333421, 

.315789, 

,263158. 

3 

*?r 

3 

.210523, 

. 157335. 

.105263, 

.052632, 

.000000/ 

r 

DAT, 3  T3D1/ 

.000000, 

.052632, 

.105263, 

.157895, 

.210526. 

3 

3 

.253153, 

.315739, 

,333421. 

.421053, 

.4=3634, 

.526316, 

3 

3 

. 573347, 

.631579, 

.634211, 

.726342, 

.789474, 

.842105, 

3 

3 

.  f.34737, 

.947323, 

1,000000, 

-.052332, 

-.104390, 

-.215866, 

3 

3 

-.2521 16, 

-.272131, 

-.293432, 

-.274777, 

-.254443, 

-.225612, 

3 

3 

-. 152934, 

-.  132330. 

-.073179, 

-.003713, 

.091572, 

.166972, 

3 

3 

. 272306, 

.406404, 

.524331, 

.7073S2, 

.347238, 

-.105263, 

3 

3 

164065, 

-.231753, 

— .  26-.  326, 

-.273=8 7, 

-.278420, 

-.261698, 

3 

3 

-.237771, 

-.206132, 

161135. 

-.102263, 

-.043745, 

.021072, 

3 

3 

.102332, 

. 1S0574, 

.233646, 

.414437, 

.540325, 

,701869. 

3 

3 

.33  .737, 

- . 157 335, 

-.201543, 

-.223105, 

-.241041, 

-.241532, 

3 

5 

-.230304, 

-.202345, 

-.  130645. 

-. 143053, 

-.033033, 

-.045361, 

3 

;; 

.  ‘  K3V3. 

.02-709, 

.  153634, 

.243320, 

.223103, 

,443519, 

~j 

3 

.553  0:3. 

. 55  .323, 

.3:2105, 

-.210526, 

-.243328, 

-.260300. 

3 

3 

?35355. 

-.223200, 

-.248323, 

-.223331, 

-. 15o335> 

-.157353, 

3 

3 

-. 1! '535, 

-,050231. 

.000565, 

•  06  ^  303 , 

.  1/2228. 

.225232. 

3 

3 

.  31  25 17, 

. 41 7323, 

.530765, 

.  o0^C'02, 

.755474/ 

3" 

r 

OTA  T33=/ 

-.=23153, 

-.234434, 

-.294255, 

-.295313, 

-.287752, 

J 

.j 

-. 270230. 

- .  2  '2 243. 

-.214123, 

-.174397, 

-. 123936, 

-.076323, 

—  .  j  o']  .  1* 

.9 -=31 5 

.1 ==332, 

.202654, 

. 291337 , 

.388385, 

J 

.  3  f  » 

.21  ;  in. 

.7  33342. 

-.315739. 

-.225941, 

-.333057, 

*; 

—  .  , 

-.3672 v . 

- . 2"33?7 . 

-.237691. 

-.235916, 

-.195422, 

3 

\’r.u 

-  .  ‘  ■  .  :  -  0 , 

-  .  3?  50 1 . 

.027617, 

.039155, 

.177754, 

.  ;  Jj*  -  .0  . 

.  0  3  j24:  .}» 

.•■.57730, 

,566747, 

.634211, 

-.368421, 

•  ;  •  1  ■  y  * 

-.3,  --551. 

-..33454, 

-.347535, 

-.324301, 

-.295366, 

-.  =t"52  4. 

-.  !  71733. 

-.118=51, 

-.060349, 

.003439, 

.  i 

.2:2192, 

.22' 164, 

.417350, 

.521118, 

.  :  ••''••■  i. 

-.  2''442, 

-.417233. 

-,  339774, 

-.380091, 

,  ,  i  -  ’>  t 

-  .  7  ~  ~  P  ;  4  , 

-.242275. 

iS352S, 

K3S92. 

.'  '0-11, 

.  1 '2=52. 

.  162373. 

.884447, 

.••'39  :7, 

-.475=34, 

-,  463733* 

-.455969. 

.  : 1 y;  ‘3, 

-.233510, 

-.232  ‘.3-1 . 

-.314946. 

-.271325, 

- .  1  )3410, 

-.051373, 

.015430, 

.087465, 

-  —  .  c  ”* 

•  .  _>  1  50  r  1  » 

.427371. 

•525316/ 

34 


3C 


3 

DATA  T3B3/ 

-.593316, 

-.515564, 

-.422907, 

-.477526, 

-.451333, 

3 

S 

-.420037, 

-.334673, 

-.344653, 

-.300242, 

-.251897, 

-.157803, 

3 

5 

142333, 

-.031321, 

-.015024, 

.053303, 

.123074, 

.206927, 

3 

5 

.  231033, 

.373342, 

.473534, 

-.573947, 

-.563427, 

-.542685, 

3 

$ 

- . 51 7G93, 

- .  433425, 

-. 454E90, 

-.417256, 

-.375775. 

-.330413, 

3 

$ 

- . 231553, 

-.223372, 

-.172516, 

-.112495, 

-.043676, 

.019100, 

3 

5 

.030331, 

. 166670. 

.247030, 

.331763, 

.421053. 

-.631579, 

3 

$ 

-.612331, 

-.537259, 

-.553333, 

— . 526333 , 

-.490245, 

-.451095, 

3 

5 

-.403005, 

-.351514, 

-.312347, 

-.253538, 

-.203313, 

-.  144564, 

3 

5 

-.002200, 

-.016244, 

.053035, 

.125737, 

.203105, 

.  23,  ,  11 , 

3 

5 

.333421, 

-.634211. 

-.660061, 

-.631667, 

-.539337, 

-.564783, 

3 

$ 

-.5261 77, 

-.434331, 

- .  44Q4G3, 

-.333209, 

-.343367, 

-.290699, 

3 

5 

-.235313, 

-. 177215, 

-.116233, 

-.052414, 

.014448, 

.084460, 

3 

5 

. 153030, 

.235011, 

.3.15739, 

-.735342, 

-.709155, 

-.676676, 

3 

$ 

-.641623, 

-.603775, 

-.552507, 

-.519474, 

-.473623, 

-.425213, 

3 

3 

-.375063, 

-.322305, 

-.237323, 

-.210193, 

-.150365, 

-.083602, 

3 

3 

-.024120, 

. 0429S1 , 

.113444, 

.  13SG04, 

.263153/ 

J  L 

3 

DATA  T334/ 

-.739474, 

-.757741, 

-.721485, 

-.633114, 

-.642412, 

3 

S 

-.533737, 

-.553327, 

-.503561, 

-.4571S3. 

-.403600, 

-.353830, 

-3 

S> 

-.233303, 

-.243115, 

134933. 

-.124821, 

-.032718, 

.001496, 

3 

3 

. 0G8S7 1 , 

.133074, 

.210526, 

-.842105, 

-.305374, 

-.765767, 

3 

S 

-.723312, 

-.630122, 

-.634527, 

-.537437, 

-.533353, 

-.488857, 

3 

S 

-.437570, 

-.334927, 

-.330353, 

-.275571, 

-.213331, 

-.160823, 

3 

3 

-.  101112, 

-.033553, 

.023764, 

.039453, 

. 157335, 

-.834737, 

3 

S 

-.354617, 

-.810225, 

-.764243, 

-.718479, 

-.663366, 

-.621283, 

3 

S 

-.571204, 

-.519912, 

-.463432, 

-.415566, 

-.362035, 

-.307710, 

3 

s 

-.252345, 

-.195323, 

-.  1335S3, 

-.030211, 

-.019909, 

.041528, 

3 

3 

.105263, 

-.947363, 

-.301753, 

-.853271, 

-.304300, 

-.754761, 

3 

s 

-.704033, 

-.653443, 

-.602053, 

-.550034, 

-.493028, 

-.445286, 

3 

5 

-.392150, 

-.333593, 

-.234712, 

-.230123, 

-.175253, 

-.  113777, 

3 

5 

-.063232, 

-.005132, 

. 052632, 

-1.000000, 

-. 9473S8, 

-.894737, 

3 

S 

-.842105, 

-.739474, 

-.735342, 

-.634211, 

-.631579, 

-.578347, 

3 

3 

-.526316, 

-.47 3S34, 

-.421053, 

-.363421, 

-.315739, 

-.263153, 

3 

3C 

3 

-.210526, 

-.157395, 

-. 1052S3, 

-.052632, 

.000000/ 

3 

DATA  T4B1/ 

.000000, 

.017544, 

.035088, 

.052632, 

.070175, 

3 

3 

.087719, 

.105253, 

.  122307, 

.  140351. 

.  157895, 

.175439, 

3 

5 

. 1S2S32. 

.210526, 

.223070, 

.2-15314, 

.233153, 

.280702, 

3 

5 

.293245, 

. 315733, 

.333333, 

-.017544, 

.773001, 

2.690273, 

3 

3 

3.532333, 

4.352353, 

6.117343, 

6 . 423343 , 

6.550239, 

6.616098, 

3 

3 

6.501650, 

G.53S40S, 

6.653000, 

6.732147, 

6.713953, 

6,512142. 

3 

5 

5.763543, 

4 . 523143, 

3.733746, 

2. 035277 , 

.315739, 

-.035088, 

3 

3 

-.231251, 

-.124527, 

-.151331, 

-.202333, 

-.049344, 

-.102840, 

3 

3 

-.125275, 

-.  .110453, 

-.105130, 

-.095543, 

-.031557, 

-.004353, 

3 

3 

.076333. 

.190503, 

.231464, 

.205233, 

.423570, 

.372075, 

3 

3 

,253246, 

-.052632, 

-.521113, 

-.303337, 

-1.277191, 

-1.590329, 

3 

5- 

-1 . 7334G6, 

-1.933502, 

-1.S33913, 

-2.010344, 

-2.003571, 

-1.987109, 

3 

3- 

-1.553244,- 

-1 .905352, 

-1.301071, 

-1 .516221 , 

-1.35S578, 

-1.027987, 

3 

3 

-.533222, 

-.154227, 

.230702, 

-.070175, 

-.333439, 

-.490084, 

3 

3 

-.653033, 

-.323333, 

-.803374, 

-.371233, 

-1.011257, 

-1.017736, 

3 

5- 

-1.013531, 

-.937771, 

-.555932, 

-.314453, 

-.333233, 

-.710224, 

3 
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-.407032, 

-.  1527SS, 

.051074, 

.253153/ 
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-.037719, 

-.2337iG, 

-.351070, 
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3 
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-.634155, 
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3 

5 

-.076032, 
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-.  105233, 
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3 

3 

-.332243, 
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-.443733, 

-.430237, 

-.494333, 
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3 

5 

-.433151, 

-.471305, 

-.445354, 

-.404304, 

-.354799, 
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3 

3 
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-.120470, 

-.003533, 

.104826, 

.223070, 

-.122907, 

3 

3 

-.130775, 

-.24i0S5, 

-.237155, 

-.324723, 
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3 

3 

-.372303, 
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-.342235. 
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-.283232, 

3 

3 

-.240837, 
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-.125739, 
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3 

5 
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3 

5 
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3 

3 
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3 

3 
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132133, 
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3 

3 

-.237245, 
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3 

3 
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3 
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3 
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-.234741. 
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3 

3 
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1  o  > 
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3 
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.  :  L  ^  3  1  •  “  .  -o'.''  j  « 
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3 
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.  ’•'  ?  1  L)  * 

.  _  .  w  » 
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3 
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.  t  •..:’  1  ,  ;  »  — .  \5  r 3  i 

-.r'j'r:  ’2. 

“■  .  7  ‘  ■  ' ' '  i  , 

— . . )  i  j  3  * 

-.213754, 

3 

3  - 

.  3 1  j, ,  j  'rr*  ■  1 . 
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.1  '33. 

-.1.  '253. 

121541, 

3 
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.  " -3,  - .  '  -  7‘.'*  7, 

■'  J  3333* 

‘  •  \*  ’  .  .J  * 

?  3  3 » 

.  0  77607, 

3 

V 

n , 

-.='-.337, 

_  P'7  ’  r'  'c 

- . = 5 ;  =  ■  9 . 

-.231655, 

3 

3  - 

-.203112, 

-.13  ms. 

-  .  ’  •  \  vz » 

-.157511, 

3 

3  - 

.  j  3  7  \  *"  •.  - .  1 1  V  d  7  ; » 

-.033423, 

-.12-2)2. 

- . 1  :333j5* 

- .  007-1 19, 

3 

5 

•  .  :  -  ,  »  .  '  3  --  3  1.  « 

.  105=33. 

sit, 

_  '1  -7 

.  _  '  .  „  1  1  * 

-.246487, 

3 

3  ~ 

.  71  33*  -  73  ’■  ’j  - 

-.  =  57. 53. 

- .  it  >  3  « s  3  * 

-  '  '  .  '  P, 

- .  irsc<4. 

3 

3  — 

.1:313;.  -.13331-;. 

-. i32253. 

-. 1 15514, 

- .  c  7  3  J  5  7* 

- . GEGE25* 

3 

3  ~ 

.017235, 

.050872, 

.03-7197 

r 

3.! 

T,1  T’5!"  '-33  ?. 

-,?G?031. 

-.257005. 

-.243256, 

-.240967, 

3 

3  — 

.  3  •  "1 .  -  .2170  :3» 

-.='=3532, 

-.133=04, 

__  -  ;o-o- 

■  x  .  1  -1  ^ J  1  * 

-. 154375, 

3 

V  - 

; .  * »  •,11333’)* 

. 2  ‘3  . 3 » 

- 1  '■‘•71352  * 

- .  0.;-27S# 

-.071 58C * 

3 

s“ 

.  ":VV^3.  .  ■*‘37  0fv2. 

•  i  1 ‘.3  * 

-  O0*j  —  -  0  f 

~ .  d.  w303« 

-.877617. 

3 

3  - 

»  .  7 .  :  3  *  —  ,  ci  .  3  •  3  3  - 

-.233  ‘42. 

-  .  P  5  5  5  3 , 

-.==4303, 

-.188743. 

3 

3  - 

,  '  7'2''.*3*  13  75 "•  j, 

- . i 33 1 > 0  * 

- .  1  l;r'3Z5» 

3?  )2. 

-.075523, 

3 

3  - 

■  ~  '  1  7  3  •’  1  » 

-.004  :o3, 

. 332753. 

1 

-.258246, 

3 

3  — 

lil’  b  ’  5  » 

—  .-  fT  -j  1  |  .  —  # 

-.=: 1324, 

- . 23-334, 

-  •  C?CL3  G2  3  * 

3 

3  ~ 

•  '  1  ■ "..  Z  ~j  1  *  —  ,  j.  1-  j  » 

-.173033, 

-.155430, 

-.127519, 

-.118710, 

3 

3  “ 

.  ’  "  33? .*! »  - .  3” 33  5  1  » 

-.055)33, 

-.=37=25. 

-.014337, 

.009015, 

3 

3 

.-■35)33,  -.315333. 

-.3035-’?, 

~.c32i?3f 

-.2737=6. 

-.253194, 

3 

S  - 

.241313,  -.2-23:53. 

-.203345. 

-.121433. 

-.1=4=53, 

-.157661, 

3 

s  - 

.133323.  -. 12)733. 

-.102430, 

-.052=33, 

- .  C  S-1G33* 

-.045519, 

3 

5  — 

.  •  ==-;-:>3,  -.00473:’. 

.0175-14, 

-.323223, 

- .315733, 

-.238246, 

3 

3  — 

.=8)702.  -.’33153. 

-.245614. 

-.585070, 

-.2105=6, 

-  .  1S23G2, 

3 

3  - 

. ; * 5-I.-3*  - .  15; 5, 

-.140351. 

-.18=307, 

-. 105263, 

-.087719, 

3 

3C 

5  ~ 

.07)175.  -.052332, 

—  •  0  j:  d  0  c  3  * 

-.017544, 

.000000= 

3 

DPT,)  T551  •'  .000900, 

.0105=6, 

.0=1053, 

.0315=3, 

.042105, 

3 

5 

.''52332.  .033.153. 

.07333!, 

.034211, 

.034737, 

.105263, 

3 

3 

. :  157.33.  .1=331 3, 

. 133342, 

. 14= 323, 

. .57335, 

. 1C3421 , 

3 

3 

.  1733  -‘.7 r  .  J. 3 3474 * 

.200000, 

-.0105=6, 

.231=66, 

2.755341, 

3 

3  3 

. 345313.  4.555733. 

5.307221, 

6.453454, 

7.244179, 

7.880487, 

3 

3  7 

.353=81.  7.353755. 

7.3143=7, 

7.G7=-33> 

7.0323-14, 

6.525685, 

3 

5  5 

.631400,  4.330014, 

3.305335, 

2. 187  325. 

. 123474, 

-.021053, 

3 

3-1 

.043=23,-1.437853, 

-2.063270, 

-2.6231 14, 

-2.301035, 

-3.407278, 

3 

S-3 

.631437,-3.353350, 

-3.713223, 

-3 . < 03540, 

-3.6=4433, 

-3.446651, 

3 

3-3 

.  152313,  -2.3=-:353. 

-R . 133313* 

-1.732501, 

-1 . 0 1533i , 

-.429118. 

3 

.1=53:7,  -.031573. 

- . 355354 , 

-1.373015- 

-1.303334, 

-2.288183, 

3 

3-2 

.710533,-3.123=53, 

-3.2330=3, 

-3.447171, 

-3.  3434* 

-3.475254, 

3 

3-3 

.  412554, -3. 25 10 44, 

-2.S73522, 

-2.535141, 

-2.11=1=0, 

-1.708.153, 

3 

S-l 

.070335,  - < 453535, 

. i63421 , 

-.0.2105, 

-.3=1407, 

-.309712, 

3 

3  - 

.407137,  -.535131, 

-.474543, 

- .6073d3> 

-.307033, 

.537671, 

3 

5  “ 

.5532=0-  -.512101. 

-.501332, 

-.452=00, 

-.419375, 

-.254138, 

3 

3C 

s  - 

.163353.  -.170373. 

.031414, 

.130547, 

. 1573354 

3 

nu 

Tft  T372'  -.052532, 

-.=25333, 

-.224233, 

-.4314=6, 

-.525009, 

3 

3  — 

. i 0-223.  -.332052. 

-.700803. 

-.703333, 

-.=13333, 

-.702691, 

3 

3  - 

.6=5253,  -.62,1330. 

-  .  j 'r.'jf  33* 

-.47)424, 

-.3-3302, 

-.278717, 

3 

3  - 

•  1  z’3  1 : 3  *  •>  0 0*1  ?  A  3  * 

.  147?"  7, 

-.•■'331  53. 

~ .  \  7 17 S3-1-  * 

-.238307, 

3 

3  - 

. ? ’ 7 5 0- 3 >  - . 33 7 71.3, 

- .  03333  f 

-.  -.2560, 

-.-  -=349, 

-.4709)3, 

3 

3  ~ 

.41:0 -3),  -.4252:3, 

-.445340, 

“ .  "1  4 * 

-.2734i3. 

- .  304686, 

3 

3  — 

.Ey;T-3*  -- 

032026, 

•  r' .  1  . j  > 

. 173342, 

-.0=3684, 

3 

3  - 

.13:273.  -.170500, 

-.=07143, 

-.:'-;=’3=. 

-.22  504 7 , 

-  f  2?  «=  * 

r> 

_> 

3  — 

.  £7  t  ~  .  3.33? 7  O* 

-.277503, 

—  7  —  *7 

-.2  .2:52, 

-  .824927, 

3 
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.  1  "  -  '  i  *  'j. 

j 1 23)3. 

—  -  ■  _  .  .  -  0 » 
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3 

3 

•  _  .7  —  .  j  _  ■  J  9 
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-.  j  ='20, 
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3 
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3 
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3 

3 
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.  '  1  '723, 
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3 

3  - 

. r  •  : : 2 .  -..6- 

— .  3,371* 

-  - 

-.137573. 
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3 
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- .  *  ‘7  » 

“  -  ’  I  ”  7  f 

—  .  .  '  ■  ’  J.  D  * 

-.070x51. 

3 

3  ~ 

.  7  ,  ■  .  1- 

.7 

-  >  jjj. 
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T.  t  -  •  •  •  •  . 
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-. 143051. 

3 

-  .  '  .  . '  - 

-  “ ' 
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-.  1  15=' 6, 

3 

3  - 

- .  ■  ■  ■  :  ’ . 
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3 

", 

~  *  _ .  ■  7  * 

-.1=:  ■■  i. 

3 

3  - 

,  i  <  l  .  . 
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.  - 

~ .  j.  r_  w0  * 

3 

3  - 

.  *  ;  ?"■?  •  .  - . . 
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3 

3  - 
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-.183316, 
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_  .3  « 
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3 
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3 
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-.  123361 , 
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3 
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-.0:0531, 
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i 

5  ,'ni  •;54, 
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.042105, 

-.163421, 

-.  1E6359, 

? 
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-.  141345, 
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3 
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-.071224, 
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3 
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-.020083, 
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.031579, 

3 
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-..'2337  3, 
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-.143910, 

3 
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3 
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-.■■■■.'■'53, 

-.036373. 

-.024233, 

-.010537, 

3 

'  .  .  53. 

-.ill  " 4 • 

- .  i  r  7  2  3  3 » 

— « 1 74 234 » 

-. 135200, 

j 
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“  732, 

-. 123SI3, 
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3 
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-  . ,"1  ? .?  3  ■  G  * 
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3 

S  \  •3  7  o  1 1 

- .  :023a  1  • 
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3 
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-  .  '  '2  i  ?  D  J  * 

-.147263, 

-.126342, 
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3 
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-.034211, 

-.073634, 
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3 
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- .  3i ^73* 

-.021053, 
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r i '  "eccci.  ate  solution  by  ouABsancs 

Ci._L  C-.-:L/D( T.-2LE,  GRID.  GRID, NOOIO,  rSGTJID.  MGRDD, IS 


TRUE  = 

DC'  iCLi  6> 

PETU'i 

1 

FlvO 

RJl.CT! 

Oil  l-!(Y  1 

:  i  =  n . 

IF 

.E3.  0.)  nET lPH 

t-i  =  IiW 

'•ltum 

c;  iD 


’  ECO 


tyr- 3p 

■'  M .  •  .  .  U  1 


S  ’10  Op, "tOT 

!  T;0  fy-  3'0‘-;3 

!  •  •-.-r!’’  ■  .  ->  C0Cra(X.Y)UYY3  *  C0IF3CX»Y)U5 

2  E  1  -  r  C;  1_TT 

~  .  JlfX.Y) 

-  ;  -i .  .  u-  "j£(  :.y) 

s  (  -o.  ,  :  \v. <  i i) 

:?  ",ri /, > 

<;  rr-- 1  EC  i  -\r,  ■ > 

r-.  r: .  r*  :c  i  -  o,  c 
i  :  :  i  ■‘■  r:  , -../ 

3  '  j 

3  '  .  /  .  ,?.  :  :0  -"33 

T  l 

3  -  . v.:.  ' 

3  '  ■'  '  i  .  C  Vi  .  C 

3  r  -  :  -  ;  ■  .  i  +  fy-.3)srv_.?)  ) 


133E13, 
-.074155, 
.  044268. 
-.142067, 
-.095332, 
007716, 
-.150790, 
-.114235, 
-.043474, 


-.147058, 
-. 0933So, 
-.015693, 
-.162771, 
-.114115, 
-.047097, 
-.178947, 
-.134603, 
-.072057, 
.004181, 
-.155746, 
-.034306, 
-.028244, 
-.178347, 
-.115789, 
-.052632, 


GRDD, DERUSL) 


=  FCX, Y) 


m  >n  m  m  m 


®im*« 


sressMasiS1 


FI  =  X  +  V 

n  -  3-1.) 

DPI  2.  -U  2-1 .  j*(2.»X)e*f  B-2. ) 

2 DPI  -  .i.v--t3-l.)»(B-2.)*(2.»X)»®(B-3.) 

22  i'll  =  1.  +  FI 
Cl  ---  FI  DENI 

=  -i  2.  ■>(  1 .  -  F1*D?1'DEN1)*DP1  +  F1»DDP1  VDEN1«*2 

u'.'vi  =  :r.'u 

F2  =  FxPl  ■  Y*'~'4 ) 

CO  =  .  1.+X.|»IY-1.)»E2 

j  c:-'v2  =  0.0 

2  UYY2  =  ("I.  .:-;h  02*(  (5.*Y-3.  )  -  4»fl*Y**4*( Y-l.  1)*Y*»2)*(  1  .+X) 

3  C3  =  COSO,  Y) 

3  S3  =  SIH(X--Y) 

3  XY3  =  X+Y 

3  U3  =  C-XY3-C3 

3  UXX3  =  -Y»(2.«C*S3  +  Y~U3 ) 

3  UYY3  =  -X»(2.«C«S3  +  X*U3) 

3  C0E1  =  2.  +  (Y-l .  )*E2 

3  COES  =  1.  +  1 .  /  ( 1 . +S. -X~P1 ) 

3  CQE3  =  C*(X*(X-1. )+(Y-.3)»(Y-.7) ) 

3  F  -  C021*(UXX1+UXX2+UXX3)  +  C0E2*(UYY1+UYY2+UYY3)  +C0E3*(U1+U2+U3) 

3  RETURN 

3  END 

3  FUNCTION  TRUE(X.Y) 

3  COMMON  /COi'ICOM/  ft.B.C 

3  TFC2  =  (X+Y«Y)/(1.+(2.»X)*«(B-1.)) 

33+  (Y-l. )»(l.+X)cEXP(-A*Y*»4) 

3  3+  C--  ( X+Y )  --COS  ( X»Y ) 

3  RETURN 

3  El  ID 


•EOF 

»  MACRO  31  * 

*E0R 
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7i!3  DIMENSIONS  3  CONSTANT  COEFFICIENTS  $  HOMOGENEOUS 

POISSON  3  LAPLACE 


UFXO  + 
MIXED 

UYY3  =  0. 

X=-I.  . 

MIXED  = 

(i.  +  (£.A))U  + 

(-(&ADUX 

=  GCX.Y) 

X=  1.  . 

MIXED  = 

(l.  +  (S.A))U  + 

(&.q>ux 

=  GCX.Y) 

Y=-l.  , 

U 

=  TRUECX.Y) 

Y=  1.  , 

u 

=  TRUECX.Y) 

FUNCTION  TPCEIX.YI 
.  2  =  X:  .< 
i  =  X2*;:2 

•  p 

:  3  =  X:3  22 
',2  =  V  Y 
V  !-  =  Y2 Y2 
r>  =  VY  Y2 
'.  3  =  YB  V2 

Ul  =  :<M  -  B .  *M2*Y2  +  Y4 

U2  =  X3  -  23.«XG“Y2  +  70.«X4*Y4  -  28.*X2*Y3  +  YS 


S3 


LJCJLJLJUJCJLJLOojuLJLJOjajrururu*— »— •—  -  i  »:<#>:«  -icoLJtJOjUJCJOJOJCoujLOUJLJtjJLJWLJCJLjrururunjru*—  -icocoljloojljojojcololjlj 


TRUE  =  1.178S  -  . 1801*U1  +  .OOB*U2 

RETURN 

END 

FUNCTION  G(X>  Y) 

U1X  =  4 . -  12.*X*Y**2 

U2X  =  a.*x~«7  -  163.*X**5*Y*»2  +  230 . *X**3*Y**4  - 
$  5S.*X*Y**S 

UX  =  -.1801*U1X  +  . 00G*U2X 
U  =  TRUE(X.Y) 

C  =  ( 1 . +(&A) )*U  +  SIGNC 1 . 0. X)*(&A )»UX 

RETURN 

END 


i5I5  !5M-55«  * 

MACRO  3G  * 

*****>:•»■£-*'*»»  ' 

2000200002000 
TWO  DIMENSIONS 

( 1 . +( &B) )UXX$  +  (l./(X+(&A))**2)UYY$  +  (2./CX+C&A) ) )UX$  + 
E(X,Y)UY$  =  F(X,Y) 

DIRICHLET 

X=0 .  ,  U=TRUE(X,Y) 

X=1 .  ,  U=TRUE(X.Y) 

Y=0 .  .  U=TRUE(X«  Y ) 

Y=l.  ,  U=TRUE(X,Y) 

FUNCTION  TRUE(X.Y) 

TRUE  =  ( 1 . — ( &B ) )*EXP(X+Y) 

IF  (X+(4A)  .NE.  0.)  TRUE  =  TRUE  +  (&B)*AL0G(X+(4A) ) 

RETURN 

END 

FUNCTION  ECX.YI 
E  =  1 . / ( ( X+ ( & A ) ) *T AN ( Y ) ) 

RETURN 

END 

FUNCTION  F(X,Y) 

TEMP  =  (l.-(4B))*EXP(X+Y) 

UX  =  TEMP  +  (&B)/(X+(&A» 

UXX=  TEMP  -  (&B)/(X+(&A))**2 
UY  =  TEMP 
UYY=  TEMP 

F  =  a.+(&B))*UXX  +  l./(X+(4A))*«2*UYY  + 

5  2./CX+C4A) )*UX  +  ECXi Y)«UY 

RETURN 
END 


TOR 

s  a  a  ■»  •:  >  *  s 


MACRO  37  * 

w  w  if  w  if  v  -7t  -X*  -X-  tt 


MACRO  33  * 

2022021200200 

TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  5  HOMOGENEOUS 
POISSON  S  LAPLACE 
UXXS  +  UYYS  =  0. 

X=-l . 5707SS327  ,  U  =TRUE(X,Y) 

X=  1.5707SS327  ,  U  =TRUE(X,Y) 

Y=  0.  ,  UY=G(X) 

Y=  1.  ,  U  =TRUE(X.Y) 

FUNCTION  TRUE(X.Y) 

TEMP  =  2.«UA)  +  1. 

TRUE  =  EXP ( -SORT ( TEMP ) ) *COS ( TEMP*X ) »S INH ( TEMP* Y ) /TEMP 

RETURN 

END 

FUNCTION  G(X) 

TEMP  =  2.*(&A)  +  1. 

G  =  EXP ( -SORT ( TEMP ) )*COS(TEMP»X) 

RETURN 

END 

FUNCTION  SINH(X) 

EXPX  =  EXP(X) 

SINN  =  0.5* (EXPX  -  l./EXPX) 
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3  ,;i!!30. 

.  73051 3, 

.773347, 

.772734, 

. 77330a, 

.797983, 

u 

*•  O?”0|  TO 

.'>3S933. 

1.000000, 

1.000000, 

.976303- 

.953708, 

3 

3  ,  ”  . : '  I 3  \ '  » 

.7''  2253. 

.333160, 

.334330, 

. 34403 3 » 

.824466, 

•o 

.7300.22, 

.773203, 

•  ?'3aS3? , 

.759520, 

, 759540, 

5  <  -;?“i  :o , 

. 733381 , 

.353335, 

.331322, 

1.000000, 

1.000000, 

3 

5  ,T.S;33> 

.853333, 

.553^37, 

.903004, 

. 379?a5, 

.857239. 

"  "iZ'oD-> 

^  ^ i 6PP3 , 

.733534, 

.773303, 

. 735943* 

.755532, 

3 

o  33, 

. 750733, 

.730434, 

*  732723 , 

03 

.322539. 

.889546, 
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3 

$ 

1.000000, 

1.000000, 

. 974552, 

.949240, 

.924215, 

.899635, 

3 

S 

.875657, 

.852483, 

.830336, 

.809523, 

.790433, 

.773547, 

3 

S 

.759540, 

.749267, 

.743985, 

.745430, 

.755951, 

.779176, 

3 

$ 

.820182, 

.888353, 

1.000000, 

1.000000, 

.974120, 

.948385, 

3 

$ 

.922953, 

.897989, 

.873657, 

.850164, 

.827743, 

.806706, 

3 

$ 

.787453, 

.770474, 

.756455, 

.746262, 

.741162, 

.742893, 

3 

3C 

3 

$ 

.753803, 

.777506, 

.819049, 

.837783, 

1.000000^ 

DATA  T3B3/ 

1.000000, 

.974120, 

.948385, 

.922953, 

.897989, 

3 

$ 

.873657, 

.850164, 

.827743, 

.806706, 

.787453, 

.770474, 

3 

$ 

.756455, 

.746262, 

.741162, 

.742892, 

.753803, 

.777506, 

3 

$ 

.819049, 

.887783, 

1.000000, 

1.000000, 

.974552, 

.949240, 

3 

$ 

.924215, 

.899635, 

.875657, 

.852483, 

.830336, 

.809523, 

3 

$ 

.790433, 

.773547, 

.759540, 

.749267, 

.743885, 

.745430, 

3 

$ 

.755951, 

.779176, 

.820182, 

.888353, 

1.000000, 

1.000000, 

3 

$ 

.975433, 

.950988, 

.926797, 

.903003, 

.879755, 

.857238, 

3 

$ 

.835665, 

.815323, 

.796584, 

.779909, 

.765948, 

.755532, 

3 

$ 

.749899, 

.750769, 

.760494, 

.732729, 

.822589, 

.889546, 

3 

$ 

1.000000, 

1.000000, 

.976808, 

.953708, 

.930817, 

.908259, 

3 

$ 

.886160, 

.864689, 

.844035, 

.824465, 

.806323, 

.790032, 

3 

$ 

.776208, 

.765637, 

.759520, 

.759540, 

.768040, 

.788690, 

3 

$ 

.826685, 

.891622, 

1.000000, 

1.000000, 

.978729, 

.957520, 

3 

$ 

.936459, 

.915647, 

.895188, 

.875226, 

.855922, 

.837510, 

3 

$ 

.820298, 

.804662, 

.791160, 

.730512, 

.773847, 

.772784, 

3 

3C 

3 

$ 

.779605, 

.797983, 

.833163, 

.894928, 

1.000000/ 

DATA  T3B4/ 

1.000000, 

.981280, 

.962581, 

.943963, 

.925501, 

3 

$ 

.907269, 

.889384, 

.871971, 

.855227, 

.839414, 

.824842, 

3 

$ 

.811996, 

.801492, 

.794350, 

.792061, 

.796775, 

.812068, 

3 

$ 

.843199, 

.900164, 

1.000000, 

1.000000, 

.984558, 

.969098, 

3 

$ 

.953649, 

.938262, 

.922979, 

.907890, 

.893077, 

.878694, 

3 

$ 

.864950, 

.852072, 

.840452, 

.830568, 

.823270, 

.819846, 

3 

$ 

.822158, 

.833520, 

.858962, 

.908600, 

1.000000, 

1.000000, 

3 

$ 

.988680, 

.977311, 

.965896, 

.954461, 

.943025, 

.931643, 

3 

$ 

.920358, 

.909277, 

.898541, 

.888291, 

.878800, 

.870380, 

3 

$ 

.863657, 

.859579, 

.859566, 

.866290, 

.884035, 

.922490, 

3 

$ 

1.000000, 

1.000000, 

.993784, 

.987508, 

.981169, 

.974776, 

3 

$ 

.968325, 

.961847, 

.955346, 

.948378, 

.942520, 

.936319, 

3 

$ 

.930428, 

.924962, 

.920279, 

.916883, 

.915547, 

.917824, 

3 

$ 

.926266, 

.947896, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

DATA  T4B1/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

.996011, 

.991983, 

3 

$ 

.987907, 

.933782, 

.979611, 

.975413, 

.971205, 

.967027, 

3 

5 

.962937, 

.958994, 

.955309, 

.952007, 

.949329, 

.947623, 

3 

$ 

.947416, 

.949647, 

.955396, 

.959798, 

1.000000, 

1.000000, 

3 

$ 

.992618, 

.985194, 

.977717, 

.970195, 

.962645, 

.955105, 

3 

S 

.947622, 

.940278, 

.933185, 

.926480, 

.920374, 

.915139, 

3 

$ 

.911221, 

.909277, 

.910276, 

.915861, 

.928649, 

.953712, 

3 

$ 

1.000000, 

1.000000, 

.989784, 

.979538, 

.969260, 

.958972, 

3 

$ 

.948707, 

.938529, 

.928514, 

.918787, 

.909515, 

.900903, 

3 

$ 

.893260, 

.886985, 

.832696, 

.881288, 

.884038, 

.893007, 

3 

$ 

.911265, 

.944131, 

1.000000, 

1.000000, 

.987464, 

.974914, 

3 

$ 

.962366, 

.949357, 

.937439, 

.925200, 

.913248, 

.901745, 

3 

$ 

.890904, 

.830998, 

.372412, 

.865649, 

.851458, 

.860892, 

3 

3C 

3 

$ 

.865422, 

.877300, 

.899736, 

.937977, 

1.000000/ 

DATA  T4B2/ 

1.000000, 

.985609, 

.971226, 

.956380, 

.942625, 

3 

$ 

.928534, 

.914715, 

.901305, 

.888499, 

.876552, 

.865785, 

3 

$ 

.856650, 

.849727, 

.845852, 

.846173, 

.852277, 

.866476, 

3 

S 

.891984, 

.933918, 

1.000000, 

1.000000, 

.984181, 

.968385, 

3 

$ 

.952662, 

.937079, 

.921726, 

.906731, 

.892253, 

.878514, 

3 

$ 

.865801, 

.854478, 

.845040, 

.338122, 

.834620, 

.835741, 

3 

$ 

.843105, 

. 859051 , 

.386756, 

.931222, 

1.000000, 

1.000000, 

3 

$ 

.983141, 

. 9S6321 , 

.949501, 

.933061, 

.916806, 

.900978, 

3 

$ 

.885755, 

.871378, 

.858159, 

.846489, 

.836897, 

.830053, 

3 

s 

.826886, 

.828634, 

.836934, 

.854118, 

.883320, 

.929460, 

3 

$ 

1.000000, 

1.000000, 

.982464, 

.964977, 

.947609, 

.930451, 

3 

$ 

.913616, 

.897256, 

.881552, 

.865787, 

.853261, 

.841392, 

3 

$ 

.831729, 

.824963, 

.322042, 

.824218, 

.833132, 

.851103, 

3 

s 

.831239, 

.328405, 

1.000000, 

1.000000, 

.832130, 

.964314, 

93 


3 

5 
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.94GS27, 

.929165, 

.912045, 

.895428, 

.879505, 

.864540, 

3 

S 

. 850359, 

.833309, 

.329220, 

.822500, 

.819707, 

.822098, 

3 

3C 

3 

$ 

.831314, 

.849553, 

.880250, 

.927801, 

1.000000/ 

DATA  T433/ 

1.000000, 

.932130, 

.954314, 

.945527, 

.923165, 

3 

0 

.912045, 

.395428, 

.879505, 

.854540, 

.850869, 

.838808, 

3 

$ 

.829220, 

.822500, 

.819707, 

.322098, 

.831314, 

.849668, 

3 

5 

.830250, 

.927901, 

1.000000, 

1.000000, 

.382454, 

.964977, 

3 

0 

.947509, 

.930451, 

.913516, 

.337255, 

.831552, 

.866787, 

3 

5 

. Sd3251 , 

.841392, 

.831729, 

.824353, 

.822042, 

.824218, 

3 

5 

.833132, 

.351103, 

.831239, 

.923405, 

1.000000, 

1.000000, 

3 

5 

=933141. 

.935321, 

.949501, 

.933051, 

.916806, 

.300978, 

3 

5 

. 835755, 

.371373, 

.858159, 

.845489, 

.835897, 

.830053, 

3 

5 

. 8^5835* 

.828334, 

.335934, 

.854118, 

.883320, 

.929460, 

3 

5 

1.000000, 

1.000000, 

.934181, 

.953385, 

.952552, 

.937079, 

3 

5 

.921725, 

.905731, 

.892253, 

.878514, 

.855801, 

.854478, 

3 

$ 

845040, 

.838122, 

.334520, 

.835741, 

.843105, 

.859051, 

3 

5 

. 83S75S, 

.931222, 

1.000000, 

1.000000, 

.985509, 

.971226, 

3 

5 

.955330, 

.342525, 

.828534, 

.814715, 

.901305, 

.888499, 

3 

5 

. 375552, 

.855785, 

.855550, 

.849727, 

.845852, 

.846178, 

3 

3C 

3 

5 

.852277, 

.855475, 

.891984, 

.933918, 

1.000000/ 

DATA  T434/ 

1.000000, 

.987454, 

.974914, 

.852366, 

.849857, 

3 

5 

.937439, 

.925200, 

.913248, 

.901745, 

.890904, 

.880398, 

3 

5 

.872412, 

.855549, 

.851458, 

.850892, 

.855422, 

.877300, 

3 

5 

.899735, 

.937977, 

1.000000, 

1.000000, 

.989784, 

.979538, 

3 

S 

.939260, 

.958972, 

.948707, 

.933529, 

.928514, 

.918787, 

3 

S 

. 909515, 

.900903, 

.893250, 

.885985, 

.882595, 

.881288, 

3 

5 

.834038, 

.893007, 

.911255, 

.944131, 

1.000000, 

1.000000, 

3 

5 

.992518, 

,935194, 

.977717, 

.370195, 

.952645, 

.955105, 

3 

$ 

.947522, 

.940278, 

.333185, 

.925480, 

.920374, 

.915139, 

3 

5 

.911221, 

.909277, 

.910275, 

.915861, 

.923549, 

.953712, 

3 

S 

1.000000, 

1.000000, 

.935011, 

.391983, 

.987907, 

.983782, 

3 

S 

.979511, 

.975413, 

.971205, 

.957027, 

.952937, 

.958334, 

3 

S 

.955309, 

.952007, 

.943329, 

.947523, 

.947415, 

.843647, 

3 

S 

.955895, 

.959788, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

s 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

DATA  T5B1/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000, 

1,000000, 

1.000000, 

1.000000, 

.997605, 

.985186, 

3 

$ 

.992734, 

.890243, 

.987731, 

.985184, 

. 982652, 

.980134, 

3 

s 

.977678, 

.875333, 

.973173, 

.971283, 

.958844, 

.969042, 

3 

s 

.959210, 

.970875, 

.974928, 

.983205, 

1.000000, 

1.000000, 

3 

s 

.995523, 

.991017, 

.885459, 

.981881, 

.977254, 

.972643, 

3 

s 

.358054, 

.953553, 

,959220, 

.955157, 

.851503, 

.948470, 

3 

s 

.945327, 

.845492, 

. 94S555, 

.950453, 

.858548, 

.973717, 

3 

5 

1.000000, 

1.000000, 

.993750, 

.987473, 

.981160, 

.974819, 

3 

$ 

.958472, 

.852158, 

. 955939, 

.949895, 

.944149, 

.938849, 

3 

S 

.934210, 

.930512, 

.928155, 

.527703, 

.929942, 

.936052, 

3 

S 

.947751, 

.957740, 

1.000000, 

1.000000, 

.992271, 

.984521, 

3 

S 

.975750, 

,953973, 

,951223, 

.953559, 

.945057, 

.938831, 

3 

s 

.932034, 

.925851, 

.920583, 

.915549, 

.914251, 

.914356, 

3 

3C 

3 

s 

.917771, 

.925300, 

.940237, 

.953735, 

1.000000/ 

DATA  T5B2/ 

1.000000, 

.991070, 

.332128, 

.973182, 

.964256, 

3 

3 

.955395, 

.845573, 

.938185, 

.930069, 

.922505, 

.915730, 

3 

5 

.910055, 

.805833, 

.903778, 

.304454, 

.908919, 

.918496, 

3 

S 

.934995, 

.350985, 

1.000000, 

1.000000, 

.990132, 

.980261, 

3 

s 

.970401, 

.950539, 

.850878, 

.341353, 

.932129, 

.823360, 

3 

$ 

.915254, 

.903072, 

.902153, 

.837959, 

.895085, 

.897288, 

3 

s 

.302537, 

.813343, 

.931351, 

.959097, 

1.000000, 

1.000000, 

3 

s 

.339442, 

.973383, 

.953351, 

.957902, 

.347575, 

.937476, 

3 

5 

.927729, 

.818505, 

.910031, 

.902587, 

.895545, 

.892375, 

3 

3 

.890537, 

.892310, 

.833239, 

.803348, 

.928395, 

.957830, 

3 

3 

1.000000, 

1.000000, 

.983933, 

.977987, 

.957023, 

.956142, 

3 

$ 

.945415, 

.934945, 

.924854, 

.915355, 

.905552, 

.899052, 

3 

.892942, 

.333305, 

.337279, 

.339173, 

.895517, 

.907672, 

3 

S 

.927379, 

.357054, 

1.000000, 

1.000000, 

.933755, 

.977541, 

3 

3 

.353330, 

.955271, 

.944343, 

.333535, 

.323452, 

.913804, 

3 

3 

.904932, 

.337320, 

.891181, 

.337057, 

.835620, 

.887656, 

3 

3 

.334205, 

.905523, 

.325553, 

.953581, 

1.000000/ 

3C 
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3 

DATA  T5B3/ 

1.000000, 

.988785, 

.977541, 

.955380, 

.955271 

3 

S 

.944343. 

.933595, 

.923452, 

.913804, 

.904992, 

.897320 

$ 

.891131, 

.837057, 

.835820, 

.887658, 

.894208, 

.906628 

.1 

$ 

. S2SS53, 

.955581, 

1.000000, 

1.000000, 

.988989, 

.977987 

3 

.937023, 

.955142, 

.945415, 

.934945, 

.924884, 

.915355 

3 

.905352, 

.899052, 

.892342, 

.838805, 

.887279, 

.889173 

3 

$ 

.895517, 

.907872, 

.927379, 

.957054, 

1.000000, 

1.000000 

"3 

$ 

.933442. 

.978883, 

.958381, 

.957902, 

.947575, 

.937476 

3 

S 

.927729, 

.918505, 

.910031, 

.902587, 

.895545, 

.892375 

3 

S 

.890597, 

.892310, 

.898239, 

.909343, 

.928895, 

.957830 

3 

s 

1.000000, 

1.000000, 

.990132, 

.980251, 

.970401, 

.980588 

3 

$ 

.950378, 

.941353, 

.932129, 

.923350, 

.915254, 

.908072 

3 

$ 

.902153, 

.897959, 

.898085, 

.897289, 

.902587, 

.913348 

3 

s 

.931351, 

.959097, 

1.000000, 

1.000000, 

.991070, 

.982128 

3 

s 

.973182, 

.954255, 

.955336, 

.948673, 

.938185, 

.930069 

3 

s 

.922505, 

.915730, 

.910056, 

.905888, 

.903779, 

.904484 

3 

3C 

3 

$ 

.908919, 

. 91849S, 

.934995, 

.950988, 

1.000000/ 

DATA  T5B4/ 

1.000000, 

.992271, 

.984521, 

.978750, 

.988973 

3 

$ 

.951223, 

.953559, 

. 94S057, 

.933331, 

.932034, 

.925881 

3 

$ 

.920583, 

.915549, 

.914251, 

.914355, 

.917772, 

.925800 

3 

S 

.940237, 

.953735, 

1.000000, 

1.000000, 

.993750, 

.987472 

3 

$ 

.931150, 

.974819, 

.963472, 

.952159, 

.955939, 

. 949898 

3 

s 

.944149, 

.933349, 

.934210, 

.930512, 

.928155, 

.927703 

3 

s 

.929942, 

.935052, 

.947751, 

.987740, 

1.000000, 

1.000000 

3 

s 

.995523, 

.991017, 

.93S4S9, 

.981881, 

.977254, 

. 972643 

3 

$ 

.938054, 

.953553, 

.959221, 

.955157, 

.951509, 

.948470 

3 

$ 

.945328, 

.945492, 

.948555, 

.950453, 

.958848, 

.973717 

3 

3 

1.000000, 

1.000000, 

.997805, 

.995185, 

.992734, 

.990248 

3 

$ 

.937731, 

.985194, 

.982552, 

.980134, 

.977878, 

.975333 

3 

S 

.973174, 

.971293, 

.959344, 

.959042, 

.989210, 

.970878 

3 

$ 

.974923, 

.983205, 

1.000000, 

1.000000, 

1.000000, 

1.000000 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000 

3 

s 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

3C 

3C  INTERPOLATE  NONLINEAR  SOLUTION  BY  QUADRATICS 
3C 

3  CALL  OUADRDCX, Y. TABLE. GRID. GRID. NGRID, NGRID. NGRDD , NGRDD . DERUSL ) 

3C 

3  TRUE  =  DERUSL ( G ) 

3C 

3  RETURN 

3  END 

3  FUNCTION  HCX) 

3  GO  TO(10,10,20,20,20),&A 

3  10  H  =  0.0 

3  IF  (X  .HE.  0.)  H  =  l./X 

3  RETURN 

3  20  H  =  EXP(X) 

3  RETURN 

3  END 

3  FUNCTION  U(X.Y) 

3C 

3  REAL  DERUSL (6) ,  GRIDC9),  TAB1  (9,9),  TAB2C9.9), 

3  S  TA33(9.9),  TAB4C9.9),  TAB5C9.9) 

3  DATA  NGRID,  NGRDD.  GRID  '9.  9,  0.,  0.125,  0.250, 

3  $0,375,  0.500.  0.G25,  0.750,  0.875,  1.00/ 

3C 

3C  APPROXIMATE  SOLUTION  OF  NONLINEAR  PROBLEM  FOR  NONLINEAR 
3C  COLLOCATION 

3C 


3 

DATA  TA31/ 

1.000000, 

1.000000, 

1 

,000000, 

1.000000, 

1.000000 

n 

S 

1.000000, 

1.000000, 

1.000000, 

1 

.000000, 

1.000000, 

.506876 

3 

5 

.587350, 

.789827, 

.839584, 

.331757, 

.933243, 

.968259 

3 

S 

1.000000, 

1.000000, 

.410154, 

.535078, 

.850128, 

.744913 

3 

S 

.822954, 

.333785, 

.948495, 

1 

.000000, 

1.000000, 

.381814 

3 

3 

.433191, 

.594221, 

.898053, 

.785410, 

.863715, 

.933997 

3 

S 

1.000000, 

1.000000, 

.374994, 

.459323, 

.577988, 

.681090 

3 

3 

.773552, 

.855558, 

.929943, 

1 

.000000, 

1.000000, 

.381814 

3 

3 

.433191, 

.594221, 

.893053, 

.735411, 

.863715, 

.933997 

3 

3 

1.000000, 

1.000000, 

.410154, 

.  535078, 

.650128, 

.744914 

3 

3 

.822354, 

.333735, 

.948495, 

1 

.000000, 

1.000000, 

.506876 

3 

3 

. 8373o0 , 

.769323, 

.339585, 

.391753, 

.933243, 

.968259 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1 

.000000, 

1.000000, 

1.000000 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1 

.000000/ 

95 


3C 


3 

DATA  TAB2/ 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

.602893, 

3 

$ 

.739247, 

.822810,  .878815, 

.919148, 

.950800, 

.976638, 

3 

$ 

1.000000, 

1.000000,  .512695, 

.821554, 

.720883, 

.800325, 

3 

$ 

.8S3S23, 

.915379,  .959599, 

1.000000, 

1.000000, 

.485164, 

3 

$ 

.573183, 

.870810,  .757792, 

.831835, 

.894601, 

.949386, 

3 

$ 

1.000000, 

1.000000,  .478418, 

.559979, 

.855650, 

.7 44447, 

3 

$ 

.821555, 

.887770,  .948000, 

1.000000, 

1.000000, 

.485164, 

3 

$ 

.573183, 

.870809,  .757791, 

.831834, 

.894801, 

.949387, 

3 

$ 

1.000000, 

1.000000,  .512895, 

.821554, 

.720882, 

.800324, 

3 

$ 

.8G3G28, 

.915379,  .959599, 

1.000000, 

1.000000, 

.602893, 

3 

$ 

.739248, 

.822809,  .878815, 

.919148, 

.950801, 

.978838, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000/ 

DATA  TAB3/ 

1.000000,  1.000000, 

1.000000. 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

.969133, 

3 

$ 

.938218, 

.907820,  .879233, 

.855269, 

.842995, 

.863848, 

3 

$ 

1.000000, 

1.000000,  .950959, 

.902895, 

.857303, 

.816798, 

3 

$ 

.788550, 

.778103,  .820581, 

1.000000, 

1.000000, 

.941574, 

3 

$ 

.884947, 

.832317,  .787180, 

.755922, 

.751881, 

.805331, 

3 

$ 

1.000000, 

1.000000,  .938692, 

.879478, 

.824808, 

.778445, 

3 

$ 

.747215, 

.744783,  .801431, 

1.000000, 

1.000000, 

.941574, 

3 

S 

.884947, 

.832318,  .787160, 

.755922, 

.751882, 

.805331, 

3 

S 

1.000000, 

1.000000,  .950980, 

.902895, 

.857303, 

.816799, 

3 

$ 

.788551, 

.778103,  .820582, 

1.000000, 

1.000000, 

.969133, 

3 

$ 

.938217, 

.907820,  .879233, 

.855269, 

.842995, 

.863848, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000/ 

DATA  TAB4/ 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

.979728, 

3 

$ 

.959248, 

.938933,  .919863, 

.904380, 

.897858, 

.914513, 

3 

$ 

1.000000, 

1.000000,  .968833, 

.933969, 

.902427, 

.874387, 

3 

$ 

.854088, 

.850358,  .882918, 

1.000000, 

1.000000, 

.959791, 

3 

$ 

.920374, 

.883278,  .851374, 

.830024, 

.829479, 

. B70497, 

3 

$ 

1.000000, 

1.000000,  .957585, 

.916106, 

.877340, 

.844387, 

3 

$ 

.822928, 

.823581,  .867130, 

1.000000, 

1.000000, 

.959792, 

3 

$ 

.920374, 

.883276,  .851374, 

.830024, 

.829479, 

.870497, 

3 

$ 

1.000000, 

l.OOOOOO,  .988833, 

.933989, 

.902427, 

.874387, 

3 

$ 

.854088, 

.850356,  .882916, 

1.000000, 

1.000000, 

.979728, 

3 

$ 

.959248, 

.938933,  .9198S3, 

.904380, 

.897858, 

.914513, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000/ 

DATA  TABS-' 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

.987658, 

3 

$ 

.975113, 

.962598,  .950876, 

.941811, 

.938390, 

.949788, 

3 

$ 

1.000000, 

1.000000,  .979429, 

.958883, 

.938986, 

.921260, 

3 

$ 

.908740, 

.907389,  .929229, 

1.000000, 

1.000000, 

.974782, 

3 

S 

.949842, 

.926125,  .905880, 

.892287, 

.892922, 

.920524. 

3 

$ 

1.000000, 

1.000000,  .973287, 

.948951, 

.922080, 

.900817, 

3 

S 

.837281, 

.888697,  .918071, 

1.000000, 

1.000000, 

.974783, 

3 

$ 

.949843, 

.928125,  .905SS0, 

.892288, 

.892921, 

.920524, 

3 

$ 

1.000000, 

1.000000,  .979431, 

.S58885, 

.938987, 

.921259, 

3 

S 

.908738, 

.907388,  .929228, 

1.000000, 

1.000000, 

.987859, 

3 

$ 

.975115, 

.962599,  .950875, 

.941803, 

.938389, 

.949788, 

3 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3C 

$ 

1.000000, 

1.000000,  1.000000, 

1.000000/ 

INTERPOLATE  NONLINEAR  SOLUTION 

BY  QUADRATICS 

3C 

3  CALL  QUADRDCX, Y, TAB8.A,  GRID,  GRID, NGRID, NGRID, NGRDD, NGRDD, DERUSL) 
3C 

3  U  =  DERUSL(S) 

3C 

3  RETURN 

3  END 


’EOR 

»***»*■*„**»** 

»  MACRO  40  * 
»*»*******»»» 

*  2000200000020 

1  TWO  DIMENSIONS 


-t^rufumojfunnnnnnn 


1  UXX$  +  C1.+X**2)UYY$  -  CY)UX*  =  FCX.Y) 

2  MIXED 

2  X=0.  .  MIXED  =  C&A)U  +  C4B)UX  =  GCX.Y) 

2  X=l.  .  MIXED  =  C4A)U  +  C4B)UX  =  GCX.Y) 

2  Y=0 .  »  U=TRUECX.Y) 

2  Y=l.  .  U=TRUE(X.Y) 

3  FUNCTION  TRUECX.Y) 

3  U  =  CX+Y)/C2.+X-Y) 

3  U1  =  EXPC2.*U-2. ) 

3  U  =  CX+1. )/CY+l. ) 

3  U2  =  ALOG 10(H) 

3  TRUE  =  U1  +  U2 

3  RETURN 

3  END 

3  FUNCTION  F(X» Y) 

3  DATA  AL0GE10/2. 3025850929940/ 

3  U  =  CX+YVC2.+X-Y) 

3  UX  =  2.*C1.-Y)/C2.+X-Y)**2 

3  (JXX  =  4.*CY-1.)/C2.+X-Y)**3 

3  UY  =  2.»C1.+X)/C2.+X-Y)**2 

3  UYY  =  4.*C1.+X)/C2.+X-Y)**3 

3  U1  =  EXPC2.*U-2.) 

3  U1X  =  2.*UX*U1 

3  U1XX  =  2.*CUXX  +  2.*UX»*2)*U1 

3  U1Y  =  2.*UY*U1 

3  U1YY  =  2.»CUYY  +  2.*UY**2)*U1 

3  U  CX+1.)/CY+1.) 

3  UX  =  l./CY+l.) 

3  UY  =  -CX+1.)/CY+1.)**2 

3  UYY  =  2.*CX+1.)/CY+1.)**3 

3  U2  =  ALOGIOCU) 

3  USX  =  CUX/U)/ALOGE10 

3  U2XX  =  C-CUX/U)*»2)/ALOGE10 

3  U2Y  =  CUY/U)/AL0GE10 

3  U2YY  =  (UYY/U  -  CUY/U)**2)/ALOGE10 

3  UX  =  UIX  +  U2X 

3  UXX  =  U1XX  +  U2XX 

3  UYY  =  U1YY  +  U2YY 

3  F  =  UXX  +  (l.+X**2)*UYY  -  Y*UX 

3  RETURN 

3  END 

3  FUNCTION  GCX.Y) 

3  DATA  ALOGE10/2. 3025850929940/ 

3  U  =  (X+Y)/(2.+X-Y) 

3  UX  =  2.*C1.-Y)/C2.+X-Y)**2 

3  U1  =  EXPC2.*U-2.) 

3  UIX  =  2. *UX*U1 

3  U  =  CX+1. )/(Y+l. ) 

3  UX  =  l./CY+l.) 

3  U2  =  ALOGIOCU) 

3  U2X  =  ( UX/U )/ALOGE 10 

3  U  =  U1  +  U2 

3  UX  =  UIX  +  U2X 

3  G  =  &A*U  +  (4B)*UX 

3  RETURN 

3  END 


’EOR 

•»»***•*•»»*• 

*  MACRO  41  * 

************* 

*  2000021002002 
TUO  DIMENSIONS  $  CONSTANT  COEFFICIENTS 
UXX$  +  UYY$  +  (4A)U$  =  FCX.Y) 

DIRICHLET  $  HOMOGENEOUS 
X=0.  .  u=o. 

X=3. 141592S5358979  .  U=0. 

Y=0.  .  U=0. 

Y=3. 141592S5358979  .  U=0. 

FUNCTION  TRUECX.Y) 

DATA  PI /3 . 14 1592S5358979/ 

SUM  =  0. 

DO  100  K  =  l.&B 

TEMP  =  2.*K  -  1. 

SUM  =  SUM  +  S I N  C  TEMP*X ) *COSH ( TEMP* ( Y-P I * . 5 ) ) / 
$  CTEMP**3*C0SHCTEMP*PI*.5) ) 


97 


U)UJUJU)tuU)LJL0LOU)U)U)UI 


100  CONTINUE 

TRUE  =  .5*X*(PI-X)  -  4./PI*SUM 

RETURN 

END 

FUNCTION  F(X.Y) 

F  =  -1.  +UFO»TRUE(X.Y) 

RETURN 

END 

FUNCTION  CQSH(X) 

EXPX  =  EXP(X) 

COSH  =  0.5* (EXPX  +  1 . /EXPX) 

RETURN 

END 


*  EOR 


*  MACRO  42  » 

**a*aaa*a*  a -a  * 

*  2000220200200 

1  TWO  DIMENSIONS  S  CONSTANT  COEFFICIENTS 

1  UXXS  +  UYY$  +  UY5  -  US  =  0. 

2  NEUMANN 

2  X=&A  ,  UX  =  -Gl(X.Y) 

2  X=&3  .  UX  =  GKX.Y) 

2  Y=0.  .  UY  =  -G2CX.Y) 

2  Y=l.  .  UY  =  G2CX.Y) 

3  FUNCTION  TRUE(X.Y) 

3  COMMON  /CONCOM/  PI 

3  DATA  PI/3. 14159265358979/ 

3  FO  =  (&C)*PI/(aB)-(&A)) 

3  FI  =  SQRT(5./4.  +F0*F0) 

3  TRUE  =  EXPOY*.5)*SINH<F1*Y)*SIMFO*(X-UA))) 

3  RETURN 

3  END 

3  FUNCTION  Gl(X.Y) 

3  COMMON  /CONCOM/PI 

3  FO  =  (&C)*PI/( (&B)-(&A) ) 

3  FI  =  SQRTI5./4.  +F0*F0) 

3  G1  =  EXP(-Y*.5)*SINH(F1*Y)*FO*COS(FO*(X-(8,A))) 

3  IF  (A3S(X-(&A) )  .LT.  l.E-7)  G1  =  -L.*G1 

3  RETURN 

3  END 

3  FUNCTION  G2CX.Y) 

3  COMMON  /CONCOM/PI 

3  FO  =  (&C)*PI/((4S)-CiA)) 

3  FI  =  SORT (5./4.  +F0*F0) 

3  G2  =  -.5*TRUE(X.Y)  +  F1*EXP(-Y*.5)*C0SH<F1*Y)* 

3  S  SINCFO»CX-(&A))> 

3  IF  (Y  .EO.  0.0  G2  =  -l.*G2 

3  RETURN 

3  END 

3  FUNCTION  SINH(X) 

3  EXPX  =  EXP(X) 

3  SIMM  =  0.5* I EXPX  -  l./EXPX) 

3  RETURN 

3  END 

3  FUNCTION  COSHCX) 

3  EXPX  =  EXP(X) 

3  COSH  =  0.5* (EXPX  +  l./EXPX) 

3  RETURN 

3  END 


’EOR 

*S»*555S'5355« 

*  MACRO  43  » 

#»» a  a  a  a  a  a  -a  a 


’EOR 

»•»»»  •»  a a  a  a  a  a  a  a 
a  MACRO  44  5 

a  2000001002002 

1  TNO  DIMENSIONS 

1  UHX3  +  UYY3  +  UKX.Y)U3  =  WX.Y) 

2  DIRICHLET  0  HOMOGENEOUS 

2  X=0.  .  U=0. 
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x=i.  .  u=o . 

Y=0.  .  u-o. 

v-i.  .  u-o. 

FUNG"!  ;  O'  I  TRUEC-C.Y) 

»  » „  »  j  »  »  a  i  ********„********  .1  ********************* 

* 

-  MACRO  44  PARAMETERS  » 

•*  * 

»  ****************** 


• 

JC 

ft 

A 

I 

B 

I 

c 

i 

D 

I 

E 

* 

— 

-I- 

— 

-I- 

— 

-i- 

— 

“I" 

— 

* 

:c 

1 .123 

I 

1 

I 

.50 

i 

2 

i 

1 

* 

?c 

* 

I 

T 

I 

i 

* 

3C 

ft 

lO.ono 

I 

1 

i 

.50 

i 

2 

i 

2 

* 

3C 

> 

I 

i 

i 

i 

* 

3C 

't 

1 . 425 

I 

2 

i 

.04 

i 

25 

i 

3 

* 

'-T' 

•ft 

I 

i 

I 

i 

* 

, 

3C 

* 

1.425 

I 

2 

i 

o 

m 

i 

2 

i 

4 

* 

l 

3C 

ft 

it 

3C 

3C 

3 

3 

3 

3 

3 


iAL  DERUSL(G),  GRID(20),  TABLE(20, 20) . 

T1B3( 100 ) >  T1B4C100), 
T2B2U00),  T233C100),  T2B4C100), 
T3B2( 100),  T333C 100 ) »  T3B4C100), 


S  T1B1C100).  T1B2U00), 

5  T2BH100), 

5  T3B1C100). 

5  T43U100).  T432(  100'. 

ECUICHLEUCE  (TABLE! 1,  1)  , 

5  ' TABLE (1,  S)  , 

3  (TABLE ( 1 > 1 1 1  . 

5  ( TABLE ( 1 > 1G )  , 


T433C100),  T4B4C100) 
T&EBK1)). 

T3.EB2C  1 ) ) . 

T&E33U)), 

T&EB4C 1 ) ) 


i; 

AT, 4  ICSID 

NGRDD.  GRID  /20,  20, 

0.0000000 

,  0 . 052G31G 

9 

3 

SO 

. I  32332. 

0. 1578347, 

0 . 21052G3, 

0 . 2S31579 

,  0.3157895 

9 

3 

SO 

.2334211. 

0.4210523, 

0.4733342, 

0.5233158 

,  0.5789474 

9 

*>c» 

50 

CO 

. 5315-33. 
.3347333, 

0 . S342105, 
0 . 3473S34, 

0.73S3421, 

1.0000000/ 

0.7894737,  0.8421053 

* 

33 

f’PP,’  0XJ.M.3T 

I  SOLUTION 

OF  LINEARIZED  PROBLEM 

USING 

3C 

nr 

r 

3DII-AC7 

(i;ethod=4, 

I0RDER=41 , 

20  X  20  GRID) 

3~ 

n 

t'7.1  r!B'd 

. 000000, 

.000000, 

.000000, 

.000000, 

000000, 

3 

5 

.030  TOO. 

.000000, 

.000000, 

.000000, 

.000000, 

000000, 

3 

5 

.  ",00000* 

.000000, 

.000000, 

.000000, 

.000000, 

000000, 

3 

5 

. 000000. 

.000000, 

.000000, 

.000000, 

. 009616, 

01G25G, 

3 

5 

.  21131. 

.024355, 

.027330, 

.023334, 

.031522, 

„32514, 

3 

3 

.  ''33001, 

. 0330^1 , 

.032514, 

.031522, 

.029334, 

027830, 

3 

5 

. 024355, 

.021191, 

.013253, 

. 00331G, 

.000000, 

000000, 

•? 

5 

. 0 1G253, 

.023433, 

.037333, 

.045131, 

. 050732, 

054957, 

5 

. "37233, 

.053313, 

.  0S03SS, 

• QSOSoS , 

.059913, 

0579S8, 

3 

3 

. 054357 > 

.050752, 

.045131, 

.037393, 

.023493, 

01B25G, 

-> 

■j 

. "00)00, 

.400000, 

.021131, 

.037333, 

. 0d1 031 , 

0G140G, 

3 

5 

.  ,33433, 

. 073507, 

.073333, 

.032330, 

. 03407G, 

084076, 

3 

5 

.  1'52330, 

.075333, 

. 07d507» 

.033435, 

. 031403, 

051061, 

3 

5 

.037333, 

.021131, 

.000000, 

.000000, 

.024955, 

045161, 

O 

5 

. .51403, 

.074337, 

.034431, 

.022153, 

.037710, 

101308, 

3 

5 

. 103)73. 

.  103073. 

. 101303, 

.037710, 

.092159, 

084461, 

3C 

3 

-> 

.0^4337, 

.031403, 

.04513!, 

.024355, 

.000000/ 

AT ,  i  i 132/ 

.000000, 

. 027350, 

.050752, 

. 033435, 

0844G1 , 

J 

5 

.0233’ 2, 

.105333, 

.111321, 

.113173, 

.118274, 

118274, 

3 

3 

.  US173, 

.111321, 

. 105333, 

.033312, 

.034431, 

069435, 

n 

3 

.050752. 

.027330, 

.000000, 

.000000, 

.023334, 

054957 , 

3 

5 

.  07b507 , 

.032153, 

.105333, 

. 1 !5a03, 

.122332, 

127650, 

3 

5 

. 130010, 

. 130010, 

. 127350, 

.122332, 

. 1 !5o03. 

105368, 

3 

5 

.032153, 

.075507, 

. 054337 , 

.023334, 

.000000, 

0, 

3 

5 

. 031522. 

.057933, 

.072233, 

.037710, 

.111921, 

122832, 

3 

5 

. 130313, 

•  1 33003 , 

. 133534, 

.135534, 

• 13300G, 

130819, 

3 

5 

. 122332, 

.111321, 

.037710, 

.073333, 

.057933, 

031522, 

3 

5 

. 000000, 

.000000, 

.022514, 

.053313, 

.032390, 

101308. 

3 

3 

. 1  IS 1 73. 

. 127830, 

.  152703, 

.1  11459, 

. 144150, 

144150, 

3 

5 

. 141453, 

.  .133003, 

.  12 ''350, 

.113179, 

.101303, 

032G90, 

3 

5 

.053313, 

.03251 4, 

.000000, 

.000000, 

.033001, 

0G08G6, 

O 

5 

. 034073, 

-  103073, 

.  1 1327  4, 

. 130010, 

.133534, 

144150, 

3 

■j 

. 145307, 

.  143307, 

.  !  ;  !  '50, 

. i 33534, 

.130010, 

118274, 

3 

5 

. 103073, 

,03407 

.050233, 

.023001, 

.000000/ 

L3 
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3 

DATA  T133/ 

.000000, 

.033001, 

. 0S033S, 

.034073, 

.103078 

3 

3 

.118274. 

. 130010, 

.133534, 

.144150, 

.143907, 

.143307 

3 

5 

. 144150. 

. 133534, 

.130010, 

.113274, 

.103078, 

.084073 

3 

5 

• 0303S3. 

.033001, 

.000000. 

.000000, 

.032514, 

.059313 

3 

3 

.032830. 

. 101303, 

.113179, 

.127350, 

.133003, 

.141459 

3 

3 

.144150. 

.144150, 

.141459, 

. 13S00S, 

.127350, 

.116179 

3 

5 

. 101303. 

.032390, 

.053313, 

.032514, 

.000000, 

.000000 

3 

3 

.031522. 

. 057333, 

.073339, 

.037710, 

.111921. 

.122362 

3 

5 

. 130319. 

.133003, 

.133534, 

.133534, 

. 13S003, 

.130819 

3 

3 

.122332. 

.111921, 

.037710, 

. 0798S3, 

. 0579S3, 

.  031522i 

3 

3 

.000000. 

.000000, 

.023934, 

.054357, 

.075507, 

.  032159- 

3 

. 1 OaSSS. 

.115503, 

. 122332, 

.127350, 

.130010. 

.  130010 

J 

5 

. 127G50. 

. 1223S2, 

. 1 1550S, 

. 105333, 

.032153, 

.075507: 

3 

S 

.054957. 

.023934, 

.000000, 

.000000, 

.027830, 

.050752: 

3 

$ 

. 039435. 

.034431, 

.093312, 

. 1 05333 , 

.111321, 

.116179: 

3 

3 

.118274, 

.113274, 

.113179, 

.111321, 

.105338, 

.036312 

3 

r>r 

5 

.034431. 

. 0S9435, 

.050752, 

.027830, 

.000000/ 

oU 

3 

DATA  T1B-V 

.000000, 

.024955, 

.045131, 

.031403, 

.074337: 

3 

5 

.034431. 

.032159, 

.097710, 

.101303, 

.103078, 

.103078: 

3 

3 

. 101303. 

.097710, 

.092159, 

.034431, 

.074337, 

.  031403 

3 

3 

.045131, 

.024955, 

.000000, 

.000000, 

.021131, 

.037393 

3 

5 

.051031. 

.031403, 

. 059435, 

.075507, 

.073339, 

.082390: 

3 

3 

.034073, 

.034073, 

.032590, 

•0793S9, 

.075507, 

.039435: 

3 

3 

.031403, 

.051031, 

.037393, 

.021131, 

.000000, 

.000000 

3 

3 

.013253, 

.023493, 

.037333, 

.045131, 

. 050752, 

.054957: 

3 

3 

.057933, 

.053313, 

.050333, 

.030333, 

.053313, 

.057338: 

3 

3 

.054957, 

.050752, 

.045131, 

.037333, 

.028493, 

.013253: 

3 

3 

.000000, 

.000000, 

.003316, 

. 01S25S, 

.021131, 

.024355, 

3 

3 

.027330, 

.029934, 

.031522, 

.032514, 

.033001, 

.033001. 

3 

5 

.032514, 

.031522, 

.029334, 

.027330, 

.024955, 

.021191, 

3 

5 

.013253, 

.009313, 

.000000, 

.000000, 

.000000, 

.000000: 

3 

S 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

5 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3C 

3 

S 

.000000, 

.000000, 

.000000, 

.000000, 

.000000/ 

DATA  T231/ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

5 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

5 

.000000, 

.000000, 

.000000, 

.000000, 

.252731, 

.3B775S, 

3 

3 

.422720, 

.447250, 

.453919, 

.434413, 

.437014, 

.438253, 

3 

3 

.433332, 

.433382, 

.453253, 

.437014, 

.434413, 

.458919, 

3 

3 

.447250, 

.422720, 

.337753, 

.252731, 

.000000, 

.000000, 

3 

5 

.337753, 

. 55730a, 

.350503, 

.393393, 

.714513, 

.724187, 

3 

3 

.723757, 

• 7303S5, 

. 731G52, 

.731352, 

.730835, 

.728757, 

3 

3 

.724137, 

.714513, 

.393393, 

. S5050S, 

.557305, 

.357753, 

3 

3 

.000000, 

.000000, 

.422720, 

•  350503, 

.735119, 

.313808, 

3 

3 

.845933, 

.853253, 

.334071, 

.333731, 

.337747, 

.837747, 

3 

3 

■  333731 , 

.834071, 

•  353253, 

.345333, 

.813303, 

.735113, 

3 

3 

.350503, 

.422720, 

.000000, 

.000000, 

.447250, 

.633333, 

3 

3 

.313303, 

.330741, 

.310053, 

.323377, 

.930554, 

.933533, 

3 

3 

.934720, 

.934720, 

. 933533, 

. 330554, 

.923977, 

.310053, 

3 

3C 

3 

3 

.330741, 

.313303, 

.333333, 

.447250, 

.000000/ 

DA 

TA  T232/ 

.000000, 

.453313, 

.714513, 

.345333, 

.310053, 

3 

5 

.341055, 

. Sao3a3> 

.332333, 

.333073, 

.957321, 

.337321, 

3 

3 

.333073, 

.332339, 

.355353, 

.341055, 

.910053, 

.845333, 

3 

3 

.714513, 

.453913, 

.000000, 

.000000, 

.434413, 

.724187, 

3 

3 

.353253. 

.323977, 

. S5a353, 

.971133, 

.373392, 

.981719, 

3 

3 

.333009, 

.333009, 

.931719, 

.973332, 

.371139, 

.  955858, 

3 

3 

.923377, 

.353253, 

.724137, 

.434413, 

.000000, 

.000000, 

3 

3 

.437014, 

.723757, 

.334071, 

. 330554, 

. 352353, 

.378332, 

3 

3 

.335772, 

.933132, 

.930430, 

.330430, 

.333132, 

.385772, 

3 

3 

.973332, 

.332333, 

.930554, 

.354071, 

.723757, 

.487014, 

•y 

3 

.000000, 

.000000, 

.433253, 

•  730335, 

•83S731, 

.  933533, 

3 

3 

•  333073, 

.331713, 

.933132, 

.332534, 

.93391S, 

.S9391B, 

J 

.332534, 

.333132, 

.331719, 

.333073, 

.333533, 

.33573! 

3 

3 

.730335, 

.433253, 

.000000, 

.000000, 

. 433332, 

.731352: 

3 

5 

.337747, 

.934720, 

. S37221, 

.333003, 

.330430, 

.333313: 

3 

O 

.335254, 

.335254, 

.933313, 

.930430, 

.933009, 

. SB7321 ' 

3 

"T 

3 

.334720, 

,337747, 

.731352, 

. 433332, 

.000000/ 

3 

DA 

TA  T2B3/ 

,000000. 

.433332, 

.731352, 

.837747, 

.334720 

3 

5 

.337321, 

.333003, 

.330430, 

.933313, 

.935254, 

.S95254 

3 

3 

.933913, 

.330430, 

.533003, 

.337321, 

.934720, 

.337747 

100 


3 

$ 

.731552. 

.468682, 

.000000, 

.000000, 

.468253, 

.730865, 

3 

$ 

.856731. 

.933553, 

•9SS079, 

.981719, 

.939162, 

.992584, 

3 

$ 

.393915. 

.993916, 

.992584, 

.939162, 

.931719, 

.966079, 

3 

$ 

.933553, 

.855731, 

.730365, 

.468253, 

.000000, 

.000000, 

3 

$ 

.457014. 

.723757, 

.854071, 

.930554. 

.962369, 

.978392, 

3 

$ 

.935772, 

.989162, 

.990480, 

.990430, 

.989162, 

.935772, 

3 

5 

.978392, 

.362369, 

.930554, 

.864071, 

.728757, 

.467014, 

3 

5 

.000000, 

.000000, 

.464413, 

.724187, 

.853253, 

.923977, 

3 

5 

.955853, 

.971139, 

.978392, 

.981719, 

.983009, 

.983009, 

3 

S 

.931719, 

.978392, 

.971139, 

.955358, 

.923977, 

.858258, 

3 

$ 

.724187, 

.464413, 

.000000, 

.000000, 

.453919, 

.714513, 

3 

$ 

.845933, 

.910053, 

.941055, 

.955858, 

.952869, 

.966079, 

3 

s 

.957321, 

.967321, 

.966079, 

.962369, 

.955858, 

.941055, 

3 

3C 

3 

$ 

.910053, 

.845933, 

.714513, 

.453919, 

.000000-' 

DATA  T2B4/ 

.000000, 

.447250, 

.693399, 

.819803, 

.880741, 

3 

S 

.910053, 

.923977, 

.930554, 

.933563, 

.934720, 

.934720, 

3 

$ 

.933553, 

.930554, 

.923977, 

.910053, 

.880741, 

.819808, 

3 

$ 

.693899, 

.447250, 

.000000, 

.000000, 

.422720, 

.650506, 

3 

$ 

.765119, 

.819808, 

.845933, 

.858258, 

.364071, 

.866731, 

3 

$ 

.867747, 

.867747, 

.866731, 

.864071, 

.353258, 

.845933, 

3 

$ 

.819808, 

.765119, 

.650506, 

.422720, 

.000000, 

.000000, 

3 

S 

.367756, 

.557305, 

.650506, 

.693899, 

.714513, 

.724187, 

3 

$ 

.728757, 

.730365, 

.731652, 

.731652, 

.730365, 

.728757, 

3 

s 

.724187, 

.714513, 

.693399, 

.650506, 

.557305, 

.367756, 

3 

$ 

.000000, 

.000000, 

.252731, 

.367756, 

.422720, 

.447250, 

3 

$ 

.458919, 

.464413, 

.467014, 

.458253, 

.463582, 

.468682, 

3 

$ 

.468253, 

.467014, 

.464413, 

.458919, 

.447250, 

.422720, 

3 

$ 

.367756, 

.252731, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

5 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

$ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3C 

3 

$ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000/ 

DATA  T3B1/ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

$ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

$ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

2 

.000000, 

.000000, 

.000000, 

.000000, 

.009168, 

.015386, 

3 

5 

.019933, 

.023367, 

.025957, 

.027381, 

.029246, 

.030122, 

3 

$ 

.030550, 

.030d50, 

.030122, 

.029246, 

.027881, 

.025957, 

3 

5 

.023357, 

.019938, 

.015383, 

.009163. 

.000000, 

.000000, 

3 

S 

.015335, 

.026806, 

.035451, 

.042060, 

.047093, 

.050847, 

3 

s 

.053517, 

.055233, 

.056072, 

.056072, 

.055233, 

.053517, 

3 

s 

.050347, 

.047093, 

.042050, 

.035451, 

.026806, 

.015386, 

3 

5 

.000000, 

.000000, 

.019933, 

.035451, 

.047532, 

.056920, 

3 

5 

.064138, 

.069552, 

.073417, 

.075906, 

.077125, 

.077125, 

3 

S 

.075905, 

.073417. 

. 069552, 

.064138, 

.056920, 

.047532, 

3 

2 

.035451, 

.019933, 

.000000, 

.000000, 

. 023357 , 

.042060, 

3 

3 

.055920, 

.063530, 

.077715, 

.034572, 

.039487, 

.092659, 

3 

3 

.094214, 

.094214, 

.092659, 

.033437, 

.084572, 

.077715, 

3 

3C 

3 

3 

.063530, 

. 05S920, 

.042030, 

.023367, 

.000000/ 

DATA  T3B2/ 

.000000, 

.025957, 

.047093, 

.064133, 

.077715, 

3 

5 

.033333, 

. 035390, 

.102187, 

. 105933, 

.107779, 

.107779, 

3 

3 

.105933, 

.102187, 

. 035390 : 

.038333, 

.077715, 

.064138, 

3 

3 

.047093, 

.025957, 

.000000, 

.000000, 

.027831, 

.050847, 

3 

5 

.059532. 

.034572, 

.093390, 

.105399, 

.111901, 

.116116, 

3 

5 

.113139, 

.113189, 

.116116, 

.111901, 

.105399, 

.036390, 

3 

3 

.034572, 

.063552, 

.050347, 

.027881, 

.000000, 

.000000, 

3 

3 

.029246, 

.053517, 

.073417, 

.039487, 

.102187, 

.111901, 

3 

3 

.118329, 

. 123493, 

.125733, 

.125738, 

.123493, 

.118929, 

3 

3 

.111901, 

. 102187, 

.039437, 

.073417, 

.053517, 

.029246, 

3 

3 

.000000, 

.000000, 

.030122, 

. 055233, 

.075906, 

.092659, 

3 

3 

.105933, 

.115116, 

. 123433, 

.123238, 

.130650, 

.130650, 

3 

3 

.123233, 

. 123493. 

.: 16116, 

.105933, 

.032659, 

.075906, 

3 

5 

.055233, 

.030122, 

.000000, 

.000000, 

.030550, 

.056072, 

3 

3 

.077125, 

.094214, 

.107779, 

.118139, 

.125733, 

.130650, 

3 

3 

. 133039. 

. 133069, 

.130650, 

.125733, 

.113189, 

. 107779, 

3 

3C 

3 

3 

.094214, 

.077125, 

.053072. 

.030550, 

.000000/ 

DATA  T333' 

.000000, 

.030550, 

.055072, 

.077125, 

.094214, 

3 

3 

. 107773. 

.113183, 

. 125738, 

. 13Q3o0, 

.133069, 

.133069, 

3 

3 

.  130550. 

. 125733. 

.113139. 

.107779, 

.034214, 

.077125, 

3 

S 

.055072, 

.030550, 

.000000, 

.000000, 

.030122, 

.055233, 

3 

3 

.075903, 

. 032359, 

.105933, 

.116116, 

.123493, 

.128288, 

3 

3 

.  130550. 

.130650, 

.123233, 

.123493. 

.116116, 

.105933, 

3 

3 

.092359, 

.075906, 

.055233, 

.030122, 

.000000, 

.000000, 
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3 

5 

023243. 

.053317, 

. 072417 , 

.  02343'7 > 

.102137. 

.111301, 

3 

3 

113322. 

.  123423, 

. 125733, 

.  '25733, 

. 123433. 

.117929, 

3 

0 

■  'ion. 

.102137, 

.033437, 

.073417, 

. 033517 . 

.022246, 

3 

r> 

vmvi, 

.  oann  vt. 

.027231, 

.050347, 

. 033552. 

.084572, 

3 

5 

:c3~r  . 

.  105533, 

.  111201, 

. ’ '31  IS, 

.113183. 

.118183, 

3 

0 

1 13113. 

.  Ut  O  -|  1  , 

.  '  05233, 

,  •’33330, 

.034572. 

. 0E5552, 

'■> 

0 

lljSn  "*.]  , 

.327331, 

.000000, 

.000000. 

. 025S57 . 

.047033, 

3 

3 

3  “  x  13*5, 

.977715, 

.023333, 

.023230, 

.102137. 

.105933, 

3 

0 

19V773, 

. 107773, 

.  105233, 

.102.137, 

. 023330. 

. CS3333, 

3 

3 

?;':’"ir5. 

.034133, 

.047033, 

. 023357 , 

.030000/ 

3 

3ft' 

rl  T33:f  ' 

. 000000, 

.023337, 

.042030, 

.053320. 

.068330, 

3 

5 

077715. 

.034572, 

.032437, 

.032353, 

.094214, 

.094214, 

3 

3 

032353. 

.033437. 

.034572. 

.977715, 

. 033330 » 

.056920, 

3 

3 

■023337, 

.000000, 

.090000, 

.013333. 

.035451, 

3 

■'47532, 

.453320, 

.034133, 

. 033552, 

.07341 7. 

.075906, 

3 

3 

977123. 

. O/V  * c5» 

.075303, 

.073417, 

.  033552. 

.064158, 

3 

3 

053720, 

.04753’, 

.035451, 

.013323, 

.000000. 

.000000, 

3 

3 

915233’ 

.'023303, 

.925 151, 

. A 42939, 

.047033, 

.050847, 

J 

‘■'255 17. 

.053’33’ 

.053  172, 

.153072, 

.  05=233, 

.053517, 

"> 

O 

0  2 ' J  3  '4 .  ’ 

.047033, 

. 542030, 

.023451, 

.023303, 

.015386, 

3 

5 

v-|  VO 9,0, 

. 000090, 

.093' S3, 

.915223, 

. 0 13333» 

.023267, 

3 

3 

023357, 

,027331. 

.023243, 

.030122, 

. 030550. 

. 030550, 

3 

3 

DjO!”. 

.023242, 

.  0  57731  * 

.  02=3=7 , 

•  033337  7 

.015933, 

3 

3 

015333. 

.003123, 

.000000, 

.000000, 

.000000. 

.000000, 

3 

3 

,000009. 

. 000000, 

.000900, 

.000000, 

.000000. 

.000000, 

3 

..TOO  0 1 0 » 

.000000, 

.000000, 

.900000, 

.000000, 

.000000, 

3 

3 

,000000, 

.000000, 

.000000. 

. 100000, 

.000000/ 

3C 

3 

3ft 

fft  7431/ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3 

.000000, 

.000000, 

,900000. 

.000000, 

.000000, 

.000000, 

3 

5 

,000000. 

.000000. 

.000000, 

.000000, 

.000000. 

.000000, 

3 

3 

,090000. 

.000000, 

.000000, 

.000000. 

.003154, 

.015360, 

3 

5 

.  0135  00, 

.022313, 

. 02=336, 

.027311, 

. 0231S3, 

.030040, 

3 

5 

.  030-535, 

.030425, 

.030040, 

. 053IS3* 

.027311, 

.025866, 

3 

5 

.023313, 

.012300, 

.015330, 

.003154, 

.000000, 

.000000, 

3 

5 

.015330, 

.023754, 

.035373, 

.041352’ 

.043971, 

.050706, 

3 

5 

.  053333 » 

.955033, 

.055303, 

. 0=5303, 

. 0=3033, 

.053363, 

3 

3 

.050703, 

.043371, 

.041353, 

. 035373. 

.023754, 

.015360, 

3 

3 

.000000, 

.000000, 

.013300, 

. 03=373, 

.047417. 

.056770, 

3 

5 

.033333, 

.033343, 

.073137, 

. 0753337 

.073374, 

.076874, 

3 

0 

.073332, 

.073137. 

.033343, 

.033353, 

. 05S770, 

.047417, 

3 

5 

.035373, 

. 0 1S300, 

.900000, 

.000000, 

.023316. 

.041359, 

3 

3 

.  953770, 

.033422, 

.077473, 

.034233, 

•  0331357 

.092338, 

3 

3 

.033335, 

.033335, 

.032333, 

. 033133, 

.034233. 

.077476, 

3 

3C 

3 

3 

.033432, 

.053770. 

.041333. 

.023313, 

.000000/ 

DftTft  7432/ 

.000000. 

. 025333, 

.043371, 

. 063353, 

.077476, 

3 

3 

023044, 

.033053, 

.101321, 

.105543, 

.107379. 

.107379, 

3 

3 

105543, 

.  10.1321. 

. 033033, 

.033044, 

.077476, 

•  063356 » 

3 

3 

043371, 

■>  0  2  2  3  w  3  ? 

.200000, 

.000900, 

.027311. 

.050706, 

3 

523343, 

.034233, 

.223053, 

. 105013, 

.111431. 

.115670, 

3 

3 

117723, 

.117723, 

.115370, 

,111431, 

.105013, 

.095053, 

3 

3 

53 :703, 

.  0333-137 

.250793, 

.927311, 

.000000, 

.000000, 

3 

3 

523' 22, 

. 053333, 

.  573 '.37, 

.033125, 

. 101321, 

.111481, 

3 

.j 

1  i  3  ■'I  i  3 1 

.123001, 

,  125232, 

. 553727 

.123001, 

. 1 1S4SS, 

3 

3 

111431’ 

. 101321, 

.'33135, 

.073137, 

•  033353 > 

. 0291G9, 

3 

3 

3  0  0  00  0, 

.  omm. 

.  '30949. 

.055033, 

. 07o532* 

.092333, 

3 

_> 

103343. 

.  1 .15370 » 

, 23001, 

. 127735, 

.150110, 

. 130110, 

3 

3 

127735, 

. 122001, 

. 1 1 ^370  > 

.  103543, 

.022333, 

.075662, 

2 

3 

'33 1 33, 

•  03^0  ‘.0» 

.020090. 

.009000, 

. 030435* 

. 055903* 

3 

r\7~-.  TT  ! , 

. 032535, 

.  '97373> 

.117723, 

.125232, 

. 130110, 

3 

3 

:2T5l?> 

■  *5  ~  —  1  -» 

.  '2H10, 

. 125222, 

. 117723, 

.107379, 

3 

3 

0  z  yiv^t 

.  T’3374. 

.035303, 

.  930435, 

.000000/ 

3~ 

2ft 

—  s  T  7t  T  ">  ' 

.  O-Vl-.^'V, 

.  930-435. 

. 055303* 

.073374, 

•  093335* 

3 

3 

•  r,  ^ 

.  x  1  77--), 

.  ' 25223, 

. 130110, 

.122513, 

.132313, 

3 

5 

*  **  *  1  ;  '  , 

.  •  - 

.  ' '7753, 

.107373, 

.033335, 

.076374, 

o 

- 

'1  ; , 

.'2  '3  1, 

.009000, 

.030040, 

. 0=5069, 

'  '  “  .37  . 

‘  "3  ~  2>  t 

.1955  73, 

. 115370, 

. 123001, 

.127765, 

3 

*  *  'I  *  *  '•  , 

*  3  ’?  /'  2  5  , 

.123001, 

•  1  i  .2  3  <  0  9 

.105549, 

3 

_  f  .  “1  f 

' ::933, 

.'■'39040, 

.000000, 

.000000, 

3 

.  '  '  ^  •  -  "  , 

-7-9  j  07  . 

.023123, 

.101321, 

.111481, 

3 

- 

t  1 

.  *  ^  7  T  T  1  * 

.  123001, 

.118466, 

O 

3 

. ''32!. 

■  o',  JJ  7 

r'73127. 

•  033333 j 

.029169, 

n 
. j 

;> 

.  '-''01  o- . 

*  ■  j  0 :  ?  j  1 

,  2731 

.050703, 

.023343’ 

.084298, 

L 


5 

. 093333. 

.1050.1.3. 

.’ 11131, 

. 1 ' 5570, 

.  117;'2S, 

.117723 

.11  d3.  ’  J  * 

.11143!. 

. 1 05013. 

.023953, 

.034293, 

.  0B9343 

* 

3 

.  05'V)3. 

.  0  27'31  . 

.00O000, 

.0  1 0000, 

.025335, 

. 04G97 1 

7. 

, j 33333* 

.  U  ‘  i  4  1  3  » 

.0230  4  1, 

.  ;•  23053, 

. 10 1321 , 

.  105549 

.7, 

.  1  OT’ST'G* 

.  197373, 

.  '  '  i  Ji  D  13, 

.  >01231, 

.053053, 

.088044 

-  — > 

3 

. 0333o3, 

.043371, 

•'i  23333, 

.000000/ 

s 

DATA  T-;J5  i. 

.000000, 

.023313, 

.041359, 

.  u  j3,  70 , 

.068432 

3 

.977  173. 

.'.34233, 

.033’ 35, 

.032233, 

. 03333a, 

.093835 

3 

3 

. 092333. 

.033135, 

.034223, 

.077473, 

.023432, 

.053770 

3 

3 

. 141259. 

.  03331 5, 

.000000, 

.000000, 

.013300, 

.035373 

3 

3 

.047417, 

. 05S770, 

.  03 3955, 

.  0S3343, 

.073137, 

. 075SG2 

3 

3 

. 073374, 

. 07S374, 

.075532, 

.073137, 

. 039343, 

.  0G395G 

3 

3 

. 0ao770 , 

.047417, 

.035373. 

.013900, 

.000000, 

.000000 

3 

3 

.015330. 

. 02S754, 

. 035373. 

.041959, 

. 04S371 , 

.  05070G 

3 

5 

. 0a33S3» 

.055059, 

.055303. 

.055303, 

. 0n50S3> 

.  0533S3 

3 

3 

. 050703, 

.045371, 

.041359, 

.035373, 

.023754, 

.015360 

3 

3 

.000000. 

.000000, 

.003154, 

.015330, 

.019300, 

.023318 

3 

3 

. 025333. 

.027311. 

.023133, 

.0300-10, 

.030435, 

. 0304G5 

3 

3 

.030040. 

. 0291S9, 

.027311, 

. 02533S, 

. 02331G, 

.  01S900 

3 

3 

.015330, 

. 003154, 

.000000, 

.000000, 

.000000, 

.000000 

3 

3 

.000000, 

. nooooo, 

, 000000. 

.000000, 

.000000, 

.000000 

3 

3 

.000000. 

.000000, 

.000000, 

.000000, 

.000000, 

.000000 

3 

3C 

3 

.000000, 

.000000, 

.000000, 

.000000, 

.000000/ 

3C 

z: 

t — 1 

7IRP0LATE 

NONLINEAR 

SOLUTION 

BY  QUADRATICS 

3C 

3  CALL  QUADRDCX, Y>  TABLE, GRID,  GRID, NGRID* NGRID, NGRDD, NGRDD,  DERUSL) 
3C 

3  TRUE  =  DERUSLCS) 

3C 

3  RETURN 

3  END 

3  FUNCTION  H(X.Y) 

3C 

3  REAL  DERUSLCS).  GRIDO).  TA81C9,9),  TAB2C3.9), 


3 

s 

TA33C9, 

9),  TA34 

(9,9) 

3 

DATA  NGRID, 

MGPDD,  GRID  /3.  3. 

0.,  0.125, 

0 . 2a0> 

3 

30. 

375.  0.500 

,  O.SEa, 

0,750,  0. 

375,  1.00/ 

3  C 

3C 

APPPQMINATE 

SOLUTION 

OF  NONLIN 

EAR  PROBLEM 

FOR  NONLINEAR 

3C 

COLLOCATION 

3 

DATA  TAB  1 / 

.000000, 

.009000, 

.000000, 

.009000, 

.000000, 

3 

3 

.900000, 

.000001, 

.000000, 

.000000, 

.000000, 

.033712, 

n 

S 

. 053745, 

.037033, 

.070223, 

.037033, 

. 053745, 

.033712, 

3 

3 

.000000, 

•000000* 

.  0  737-In, 

.031025, 

.103313, 

.115030, 

3 

5 

. 103313, 

.031025, 

.  033745* 

.000000, 

.000000, 

.037033, 

3 

3 

. 109313. 

. 132414* 

. 133733, 

. 132414, 

.  103313, 

. 03703S, 

3 

.009000, 

.600000, 

.070223, 

. 1 1 5030 > 

.133733, 

.147530, 

3 

3 

. 133733, 

.115030, 

.070223, 

.090000, 

.000000, 

.037033, 

3 

3 

. 103315, 

.  132414, 

. 133733, 

.  .132414, 

.103313, 

• 067Q3S* 

0 

3 

. 000000, 

.000000. 

,053744, 

. 031025, 

.103313, 

.115030, 

J 

3 

•  1  !J  J3  1  D  * 

.091025, 

.  0.337s  4* 

.009000, 

.000000, 

.033712, 

3 

3 

.•153744, 

.037033, 

.070223, 

.937023, 

.0537-14, 

.033712, 

3 

3 

. 000003* 

.000000, 

.000000, 

.000009, 

.000000, 

.000000, 

3 

3 

. 150060, 

.000000, 

. 000000, 

.909009/ 

3 

DA 

7 A  7.43?/ 

, ^00000* 

. 000000, 

.090900, 

.000000, 

.000000, 

3 

3 

. >00900, 

.459000, 

. 590000, 

.990000, 

.000000, 

.348110, 

2) 

3 

.774934, 

,731353, 

.73 132  4, 

•  ( 3 ).  3oS» 

.770334, 

.348110, 

3 

.3 

. 900005, 

.99 00 00, 

.770933, 

.223303, 

.357243, 

.331231, 

3 

z 

.35724?, 

.323399: 

.775334, 

.000000, 

.000000, 

.791353, 

-3 

3 

.  j5??4 ‘3* 

.4 

.531133, 

.233333, 

.957242, 

.731953, 

3 

. 009905, 

. 005000, 

.734324, 

•  33-  P.  31  * 

.331133, 

.335434, 

*) 

3 

.50’  ’.33, 

.53123’ , 

.734324, 

.000900, 

.000000, 

.731353, 

J 

3 

^  3  ?  ^  ■;  ^  . 

.533333, 

.931133, 

.333333, 

.357242, 

.791353, 

O 

. 101515, 

,  >0  virn* 

.770933, 

.323303, 

.357242, 

.331281, 

-> 

.) 

,357210, 

.233253, 

, 779523, 

.090000, 

.000000, 

.348110, 

- 

«  :  (  .  ;  J  1 

,  73  •  S3  I, 

.  ?  2  ’“23, 

.731353, 

,770333, 

.348110, 

.  /  ;  * 

;00r:"  J  * 

,  Oil  .>99, 

.0^0000, 

.090000, 

.000000, 

U 

,  r!  J  ■' :  j  “J  0  > 

.  09009  J, 

.09  599  9, 

n  j  'j  *1  z  q  / 

V.'l  ;  .452  / 

,  ■'OO'V.'J, 

.04  109, 

4  91)999. 

.059000, 

.000000, 

"> 

3 

,  ‘  ‘  ■■■';  VJ  j 

.  •  1  ’ '  J '  :  j  * 

*■  '■  , 

.  ‘  -|  *’  n  1 , 

. 099900, 

.03-1380* 

.  ,;  i  ; ”5* 

,  [ , 

„  '  I  .  .  .  J ' 

' 5177  ’  , 

. 032595, 

.034339, 

n 

jrir:rLif: 

G 

. OORQOO, 

.000000, 

. 052305, 

.033311, 

.053331, 

.104316, 

O 

. 000331 . 

.033311. 

. 05230 p, 

.000000, 

.000000, 

.061771, 

0 

.003331, 

. 120333, 

. 123773, 

. 120333, 

.053331, 

.061771. 

3 

-j 

.000000, 

.000000, 

.034533, 

.104313, 

. 123773, 

. 133663, 

3 

. 123773, 

. 104313. 

.034523, 

.000000, 

.000000, 

.031771, 

3 

3 

. 033331. 

. 120333, 

.123773, 

.120333, 

.033331, 

.061771, 

3 

5 

.000000, 

.000000, 

.053304, 

.033311, 

. 033330 , 

.104316, 

3 

3 

.033330, 

. 03331 1 , 

.052304, 

.000000, 

.000000, 

.034383, 

3 

G 

. 052304, 

.031770, 

. 034533, 

.031770, 

.052304, 

.034389, 

3 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

C?p 

3 

.000000, 

.000000, 

.000000, 

.000000/ 

3~ 

DATA  TA34/ 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

3 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.034316, 

3 

.052433, 

.031533, 

.034333, 

.031533, 

.052435, 

.034316, 

3 

G 

.000000, 

.000000, 

.032433, 

.033345, 

. Q33d07 , 

.104531, 

3 

. 033507 , 

. 033345, 

. 05243d, 

.000000, 

.000000, 

.061583, 

3 

G 

.  0  p  3 3  0  7 » 

.113334, 

.123259. 

. 1 13354, 

.033507, 

.031588, 

3 

G 

.000000, 

.000000, 

.034332, 

. 104531, 

. 123253, 

.133110, 

3 

$ 

, 123233, 

.104531, 

.034332, 

.000000, 

.000000, 

.031588, 

3 

G 

.053507, 

. 113334, 

, 123253, 

.113334, 

.033507, 

.031585, 

3 

‘3 

.000000, 

.000000, 

. 0p243p» 

.0333-15, 

.033507, 

. 104531, 

r? 

G 

.033507, 

. 033345, 

.052435, 

.000000, 

.000000, 

.034315, 

3 

<*? 

.052435, 

. 031533, 

. 034332, 

. 031333, 

. 0d243p> 

.034315, 

3 

5 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

.000000, 

3 

D  ~ 

3 

. 000000, 

.000000, 

.000000, 

.000000/ 

OR 

IN 

7ERP0LATE 

NONLINEAR 

SOLUTION 

3Y  QUADRATICS 

3 

op 

C6 

_L  OL'ADRDCX,  Y,  TAD&E, 

GRID, GRID 

,NGRID, NGRI 

Dt  fSGRDD* 

NGRDD, DERUSL) 

jL 

3 

G 

=  DER'JSL  ( 

3) 

30 

3 

il 

=  -(2.  A  ”-"-2 

)»( l.-G 

2.3- 1 )  «EXP  ( - 3/  ( 1 

.+&C*G>) 

J'w 

3 

n? 

TURN 

n 

u 

END 

L 


1 EC2 


*  i 


2000001202000 

T!  ID  DIMENSIONS  5  HOMOGENEOUS 

U.‘<:<3  +  UYY5  -  (3A*RO<,Y))U5  =  0.0 

DIRICHLET 

;;=0.  ,  U=TR'JE(!<»  Y) 

;<=1 .  ,  'J=TRUIO<,Y) 

Y=0.  ,  U=TRUE(M, Y) 

Y-l ,  -  U=7RUE(!<>  Y) 

FUNCTION  TRUECX.Y) 


-  -p  c?  -ft  s  .3  3  3  3  3333  3  -3  3  3  3  -3  3  3 


[WORD  45  PARAMETERS 


S33333333-3-33-33-33S3 

3 


n 


2 

1000 

p 


:•  3  3  3  3  3  3  333  3  3  3  3  3 


3 ” 3333  3 333333 3 ? 


?EAL 


:?ui 


PIRUSLlSi,  GRIDOO),  TA3LECH0. 20) . 
T' 31 ( 100) » 

T23KI00). 

T23K1C0). 

JALEHCE  (TADLEd, 

(TADLEd,  S1 
(7A3LEC 1*111 
(TADLEd,  13) 


T132C100). 
T232( 100). 
T332C100), 
D  , 


T133U00), 
1233(100). 
T333( 100 ) . 
TiC31(l )), 
T&C32C 1 ) ) » 
T&C33C 1 ) ) . 
Tt.C34  ( 1 ) ) 


T134C 100 )  * 
T234( 100), 
1334(100) 


104 


1 


3 

DATA  INGRID 

,  NGRDD,  GRID  /20,  20, 

0.000000 

i.  0.0525315, 

3 

$0. 

1052532. 

0.1573347, 

0.2105253, 

0.2531579 

1,  0.3157835, 

3 

SO. 

3534211, 

0.4210523, 

0.4735342, 

0.5263159 

1.  0.5789474, 

3 

50. 

6315789, 

0.5342105. 

0.7353421, 

0.7334737 

',  0.3421053, 

3 

TP 

SO. 

39473S3, 

0.9473534, 

1.0000000/ 

jL 

3C 

A" 

'PROXIMATE  SOLUTIOM 

OF  LINEAPI2 

IcD  PROBLEM 

1  USING 

3C 

nr 

HODIE-ACF 

(METH0D=4» 

I0RDER=41, 
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.703073, 

.713331, 

.732437/ 

3 

i  ft  l  3_}3  / 

.732433, 

.719325, 

.703074, 

.353472, 

.330444, 

3 

s 

. S323S3, 

.373743, 

.374341, 

.372423, 

.371173, 

.371178, 

3 

3 

.572423, 

.374341, 

.573743, 

e 323332* 

.330444, 

.332471, 

3 

3 

.703073, 

.719334, 

.732437, 

.733441, 

.720403, 

.709133, 

3 

5 

.533503. 

.531503, 

. Soo033> 

. S78334 » 

.373173, 

.373371, 

3 

3 

.572427, 

.572427, 

.573371, 

.373173, 

. S75334* 

. E85088, 

3 

3 

,531503, 

e  333302* 

.703133, 

.720403, 

.733433, 

.735528, 

3 

3 

.722527, 

.711335, 

.701373, 

.332353, 

. 337433, 

.382403, 

3 

3 

.373353, 

.373173, 

.374241, 

.374341, 

.373173, 

.378352, 

3 

3 

.532403, 

.537433, 

.333332, 

.701373, 

.711334, 

.722523, 

3 

3 

.733527, 

.723553, 

.725713, 

.711335, 

.705323, 

. B3750d, 

3 

3 

.53'  123, 

.523115, 

.532-103, 

.373323> 

.373743, 

.378748, 

3 

3 

.573333, 

.322403, 

.333115, 

.331123, 

. 337o04, 

.705323, 

3 

3 

.714334, 

.723713, 

.733523, 

•  7  5  3  4  3  * 

.730033, 

.713200, 

3 

3 

.703333, 

.702310, 

.  3  2  5  0  4  3  > 

.331123, 

•  337433* 

• G3d0S8* 

3 

3 

. 533335 , 

.232335, 

.335033, 

. 337423, 

.331123, 

.333043, 

3 

3 

.702310, 

.  70333-3, 

.719133, 

.730033, 

.  742347/ 

3 

Eft 

7ft  723  7' 

c  747303* 

. 735541  * 

.724323, 

•  71 d34  0  * 

.703423, 

3 

3 

.702310, 

.337304, 

. 535352, 

.331303, 

.330443, 

.390443, 

3 

3 

.531303, 

. 393352* 

.337504, 

.702310, 

.703423, 

.715340, 

r> 

3 

.724333, 

. 735541 > 

.747903, 

. 7o4250, 

.742233, 

.731391, 

3 

3 

.723240, 

.715340, 

•  (  J  Z.  Zj  ZiZl  9 

.705323, 

.701373, 

.393301, 

3 

5 

.523470, 

.323470, 

.333301, 

.7 01373, 

.705323, 

.703335, 

3 

3 

.735340, 

.723241, 

.731331, 

.“42233, 

.754250, 

.732103, 

3 

3 

.r5044t  > 

.740453, 

.731331, 

. 754223* 

.713133, 

.714393, 

"> 

3 

.  71.1233, 

.709154, 

.703071, 

.703072 i 

.703134, 

.711333, 

o 

3 

.714333, 

.719193, 

.724323, 

.731331, 

.740433, 

.750442, 

3 

<■** 

> 

. 732107, 

.771257, 

.7300 17, 

.750441, 

.742233, 

.735540, 

3 

3 

.730037, 

.725717, 

. 722o25, 

.720403, 

.713332, 

.713332. 

o 

.j 

3 

.720407, 

.  7’2252n» 

.725717, 

.730037, 

. 733541 , 

.742233, 

r> 

3 

.750441, 

.720043, 

.771253, 

.731303, 

.771253, 

.732105, 

j 

i.) 

.734243, 

.7473' 3, 

.723527, 

.735325, 

.733437, 

-> 

.  732430, 

.7224.2  0, 

•  *■> 

*  i  — ,  .  :  j  ? 

.  '715555* 

. 733533* 

.742343, 

.j 

3 

.747303, 

.754243, 

e  :  O  1  r  T  , 

.771257, 

.731311/ 

j'-» 

iri 

"-.rr_:ri 

i  |  ;r  ■-;«0 

3:i.’!Ti3;i 

31'  5  "Oft  2  7  ft 

7133 

■71 

~r 

4  L  25.4 323 

57 T  r  7 .7 

2:3-ft3933, 

SE2DD, DERUSL) 

3C 

3  TRUE  =  DERUSL C 3) 

3C 

3  return 

3  END 

3  FUNCTION  R(X,Y) 

3C 

3  REAL  DERUSLCS).  GRID(9).  TAB3C9.9) 

3  DATA  NGRID,  NGRDD.  GRID  /9,  9,  0..  0.125.  0.250, 

3  $0,375,  0.500,  0.E25,  0.750,  0.375,  1.00/ 

3C 

3C  APPROXIMATE  SOLUTION  OF  NONLINEAR  PROBLEM  FOR  NONLINEAR 
3C  COLLOCATION 

3C 


3 

DATA  TA33/ 

.781915, 

.759033, 

.743903, 

.735237, 

.732417, 

3 

$ 

. 73523S, 

.743903, 

.759033, 

.731915, 

.759035, 

. 733775, 

3 

S 

. 71S957 , 

.70733S, 

.704204, 

.707335, 

.713957, 

.733773, 

3 

5 

. 7590S5. 

.743902, 

.713953, 

.393974, 

. G33SS9, 

.385312, 

3 

3 

. G38SS3, 

.393973, 

.713955, 

.743900, 

.735233, 

.707335, 

3 

S 

. G3S3S3. 

.377953, 

. S744S5, 

.377955, 

.333333, 

.707333, 

3 

3 

.735234, 

.732413, 

.704204, 

.535311* 

.374434, 

.B70S28, 

3 

3 

.B744S3, 

.335309, 

.704201, 

.732414, 

.735234, 

.707333, 

3 

3 

. G33SSS, 

.377954, 

.374433, 

.377953, 

. 333365, 

.707332, 

3 

3 

.735233, 

.743399, 

.713953, 

.333970, 

• 5333S5, 

.385309, 

3 

5 

• G38SS5, 

.393970, 

.713352, 

.743333, 

.759031, 

.733772, 

3 

3 

.71S952, 

.707331, 

.704200, 

.707333, 

.713952, 

.733771, 

3 

3 

.753052, 

.731909, 

.759030, 

.743337, 

.735231, 

.732412, 

3 

3C 

3 

5 

.735232, 

.743897, 

.759031, 

.731911/ 

IF 

C4B  .EO. 

2)  GO  TO 

10 

3  R  =  1.0 

3  RETURN 

3C 

3C  INTERPOLATE  NONLINEAR  SOLUTION  BY  QUADRATICS 

3C 

3  10  CALL  QUADRDCX.Y.TAB3, GRID, GRID, NGRID. NGRID, NGRDD, NGRDD, DERUSL) 

3C 

3  R  =  DZRUSL(S) 

3C 

3  RETURN 

3  END 

’  EOR 


»  MACRO  4S  * 
aaaaaaaaaaaaa 

2000220202000 

1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  S  HOMOGENEOUS 

1  UXX3  +  UYY3  -  X.BUY3  =  0. 

2  DIRICHLET 

2  X=0.  .  U=  0. 

2  X=&A  ,  U=  0. 

2  Y=0 .  ,  U=-l. 

2  Y-l .  ,11=1. 

3  FUNCTION  TRUECX, Y) 

3C  ******************************************************* 


MACRO  43  PARAMETERS 


* 

a 

a 


aasaaaaaeascaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaeaaaa 


a  a 

*  A  I  3  I  C  » 

*>  1  I  2  T  1  » 

«  II  * 

a  4  I  2  I  2  a 

a  II  a 

a  4  I  10  I  3  a 

a  II  a 

a  3  I  2  I  4  a 

a  a 


aaaaaa*a»aa5»«aa»aaa»aaa»aaaaaaa»aa»aa»aa»**a*»a»*a»aa 

REAL  DERUSL (G),  TABLE (20. 20),  GRID1C20), 

$  GRID2I20) ,  GRID3C20),  GRID4C20), 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3C 

3C 

3C 

3C 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


$  TIBI ( 100 ) •  T1B2( 
$  T2B1C100).  T3B3( 
$  T3B1C100),  T3B2( 
$  T4BK100),  T4B2C 


EQUIUALENCE  ( TABLE ( 1» 
$  ( TABLE C 1, 

$  (TABLEd, 

$  (TABLEd, 

DATA  NGRID,  NGRDD/20, 
DATA  GRID1/0. 0000000. 
$0.2105263,  0.2631579, 
$0.4736842,  0.5263158, 
$0.7368421,  0.7894737, 
$1.0000000/ 

DATA  GRID2/0. 0000000, 
$0.8421053,  1 . 052S31S, 
$1.8947368,  2.1052632, 
$2.9473684,  3.1578947, 
$4.0000000/ 

DATA  GRID3/0. 0000000. 
$0.8421053,  1.0526316, 
$1.8947368,  2.1052632, 
$2.9473684,  3.1578947, 
$4.0000000/ 

DATA  GRID4/0. 0000000. 
$1.6842105,  2.1052632, 
$3.7894737,  4.2105263, 
$5.8947368,  6.3157895, 
$8.0000000/ 

APPROXIMATE  SOLUTION 
P3-C1  COLLOCATION  (8 

DATA  T1B1/-1 .000000,  - 
$-1.000000,-1.000000,- 
$-1.000000,-1.000000,- 
$-1 . OOOOOO, -1 . 000000,  - 
$  -.817443,  -.857488, 


100),  T1B3C100).  T1B4U00). 
100),  T2B3(100).  T2B4( 100), 
100),  T3B3C 100) ,  T3B4( 100 ) , 
100),  T4B3C100).  T4B4C100) 
T&CB1(1)), 

T&CB2C  1 ) ) . 

T8.CB3U)), 

T4CB4( 1 ) ) 


1)  , 

6)  . 

11)  , 

16)  , 

20/ 

0.0526316,  0.1052632, 
0.3157895,  0.3684211, 
0.5789474,  0.6315789, 
0.8421053,  0.8947368, 


0.1578947, 

0.4210526, 

0.6842105, 

0.9473684, 


0.2105263,  0.4210526,  0.6315789, 
1.2631579,  1.4736842,  1.6842105, 
2.3157895,  2.5263158,  2.7368421, 
3.3684211,  3.5789474,  3.7894737, 

0.2105263,  0.4210526,  0.6315789, 
1.2631579,  1.4736842,  1.6842105, 
2.3157895,  2.5263158.  2.7368421, 
3.3634211,  3.5789474,  3.7894737, 

0.4210526,  0.8421053,  1.2631579, 
2.5263158,  2.9473684,  3.3684211, 
4.6315789,  5.0526316,  5.4736842, 
6.7368421,  7.1578947,  7.5789474, 


OF  PROBLEM  USING 
X  8  GRID) 


$  -.928640, 

$  -.875902, 

$  -.219279, 

$  -.836165, 

$  -.818609, 

$  -.042140, 

$  -.687743,  -.725177, 
$  -.765706,  -.751106, 
$  -.425126, 

$  -.445435, 


-.928751, 

-.827951, 

-.513384, 

-.847318, 

-.791142, 

-.047770, 


-.250824, 

-.530434, 


1.000000,- 
1.000000,  ■ 
1.000000,- 
1. OOOOOO, 
-.894001, 
-.926530, 
-.792383, 
-.673778, 
-.852362, 
-.747734, 
-.227275, 
-.750246, 
-.725896, 
-.047770, 
-.593233, 


■1.000000 
■1.000000 
■1.000000 
.031332 
-.909298 
-.921708 
-.619858 
-.741340 
-.852400 
-.677427 
-.415552 
-.765570 
-.688705 
. 006366 
.635471 


3 

$ 

-.691453, 

-.691540, 

-.683244, 

-.665984, 

-.636590, 

-.594731 

3 

3C 

3 

$ 

-.533931, 

-.447016, 

-.335403, 

-. 189134, 

.006366/ 

DATA  T1B2/ 

-.003657, 

-.135812, 

-.262867, 

-.367015, 

-.446535 

3 

$ 

-.507305, 

-.551224, 

-.581744, 

-.600366, 

-.610109, 

-.610123 

3 

$ 

-.600900, 

-.581958, 

-.551403, 

-.507545, 

-.447094, 

-.367268 

3 

$ 

-.265253, 

-.141679, 

-.008657, 

-.001713, 

-.112130, 

-.213651 

3 

$ 

-.302230, 

-.374162, 

-.429104, 

-.471392, 

-.501214, 

-.519955 

3 

$ 

-.529380, 

-.529314, 

-.519998, 

-.501114, 

-.471112, 

-.428774 

3 

$ 

-.372592, 

-.301277, 

-.212279, 

-.111526, 

-.001713, 

.000386 

3 

$ 

-.089061, 

-.171761, 

-.245781, 

-.307823, 

-.356682, 

-.395073 

3 

$ 

-.422671, 

-.440317, 

-.449200, 

-.449148, 

-.440351, 

-.422593 

3 

$ 

-.394853, 

-.356424, 

-.306595, 

-.245036, 

-.170687, 

-.088588 

3 

$ 

.000386, 

-.000909, 

-.069776, 

-.135734, 

-.195175, 

-.246134 

3 

$ 

-.288236, 

-.321251, 

-.345454, 

-.361272, 

-.369111, 

-.369110 

3 

$ 

-.361272, 

-.345452, 

-.321246, 

-.238229, 

-.246103, 

-.195156 

3 

$ 

-.135706, 

-.069764, 

-.000909, 

-.000015, 

-.055003, 

-.103510 

3 

$ 

-.149636, 

-.190299, 

-.222356, 

-.249766, 

-.269504, 

-.282002 

3 

$ 

-.288832, 

-.283693. 

-.281920, 

-.268605, 

-.248813, 

-.221354 

3 

3C 

3 

$ 

-.187692, 

-.148376, 

-.100697, 

-.051419, 

-.000015/ 

DATA  T1B3/ 

-.000008, 

-.037091, 

-.070953, 

-.103191, 

-.132083 

3 

$ 

-.155868, 

-.176071, 

-.191055, 

-.200851, 

-.206051, 

-.205973 

3 

$ 

-.200813, 

-. 190640, 

-.175631, 

-.155406, 

-.130880, 

-.102610 

3 

$ 

-.069654, 

-.035437, 

-.000008, 

-.000052, 

-.019880, 

-.037915 

3 

$ 

-.055845, 

-.0726S4, 

-.0869S7, 

-.099741, 

-.109479, 

-.115981 

3 

$ 

-.119490, 

-.119438, 

-.115931, 

-.109087, 

-.099374, 

-.086553 

3 

$ 

-.071702, 

-.055412, 

-.036393, 

-.018570, 

-.000052, 

.000004 

-1.000000,-1.000000, 
-1.000000,-1.000000, 
-1.000000,-1.000000, 
-.205316,  -.634229, 


-.919245, 

-.911556, 

.031332, 

-.789473, 

-.847433, 

-.568299, 

-.547625, 

-.772650, 

-.632823, 

-.152467, 

-.664645, 


-.926200, 
-.898806, 
-.042140, 
-.817825, 
-.8 37030, 
-.363217, 
-.630577, 
-.772702, 
-.548641, 
-.320495, 
-.683032, 
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3 

$  -.00323;'. 

-.002357, 

-.005376. 

-.010178, 

-.013191, 

3 

-.02323  1. 

- . 027273, 

-.027113, 

-.025143, 

-j 

0  ~.01“53j> 

-.01 1233. 

-!  00730  4, 

-.004332, 

.000184, 

3 

5  .oo?v:  •, 

-.  -00005. 

.'12:227, 

.039102, 

.053523, 

0  ,  :  3  0  5 .  5 . 

.  1  “24  ’  0. 

.  V3533. 

.0"3905. 

.073785, 

3 

■3  .  r’2::2. 

.■i“337 3, 

. 0“2332, 

.033332, 

.063926, 

3 

3  .  ?  j  3  3  3  > 

.  '21 123, 

-.000005, 

-.000002, 

.043677, 

3 

'J  .  1  :2  ?53> 

.  145333, 

. 1 j  4 1 33 , 

.174233, 

.130593, 

3 

0  .  d  1, 

.135712, 

. 134453. 

.181530, 

.175031, 

o 

o 

r>r 

3  . 142335. 

.  123323. 

.03:333, 

.048583, 

-.000002/ 

J>  w 

3 

2.3T;')  T’3  './ 

.000000. 

.077702, 

.152870, 

.203663, 

3 

0  . 2~5233. 

.232390. 

.302730, 

.303373, 

.311346, 

3 

5  .309033. 

.303,  47 , 

.233228, 

.277171, 

.250465, 

3 

5  .153400. 

.032355. 

.000000, 

-.000001, 

.138542, 

3 

5  .224323. 

.377533, 

.410414, 

.431180, 

.443662, 

3 

3  .432433. 

.453502, 

.450337, 

.443745, 

.431250, 

n 

.J 

'■0  . 3 1  i  3  3 1 . 

.324  !'4, 

. 244373, 

.133375. 

-.000001, 

o 

. 3.  2733, 

.479230, 

.534312, 

.572794, 

3 

3  . 803231 . 

.311330. 

.  G 14337, 

•S14S76. 

.611773, 

3 

3  .533524. 

.5^4053, 

.533310, 

.481864. 

.384833, 

3 

3  .000300. 

.000000, 

.334539, 

•  800039, 

.692728, 

j 

3  .783311. 

.722031. 

.730041, 

.794434, 

.796406, 

3 

S  .794520. 

.730233, 

.732132. 

.733086. 

.739573, 

3 

3  .9'>?330. 

«  o7uD34, 

.000000, 

.000000. 

1.031332, 

3 

5  . 932230 . 

1.003333, 

.331341, 

.998282. 

1.000391, 

3 

3  ,332377. 

. 333377 , 

. S39339, 

1.000391. 

.998282, 

3 

nr 

5  1 , 008233. 

.952230, 

. 9o7330 , 

1.031332, 

.000000/ 

.j— 

3 

DATA  T231/- 

-1.000000, 

-1.000000, 

-1.000000, 

-1.000000, 

3 

5-1.000000,- 

-1.000000, 

-1.000000, 

-1.000000, 

-1.000000, 

3 

3-1.000000,- 

-1.000000, 

-1.000000, 

-1.000000, 

-1.000000, 

3 

3-1.000000,- 

-1.000000, 

-1.000000, 

.031332, 

-.337383, 

-> 

3  -.913351. 

- . 933093, 

-.953727, 

-.883381, 

-.964623, 

3  -.233591. 

-.335313, 

-.535444, 

-.968943, 

-.964632, 

3 

3  -.973333. 

-.933573, 

-1.024958, 

-1 . 053698, 

.031332, 

3 

3  -.533009, 

-.320302, 

-.833301, 

-.907331, 

-.920823, 

3 

5  -.920343. 

-.923133, 

— . 928339, 

-.926601, 

-.926387, 

3 

3  -.224354, 

-.923351, 

-.S21103, 

-.896691, 

-.917931, 

3 

3  -.042140. 

-.047770, 

-.862054, 

-.820058, 

-.847692, 

3 

3  -.377901, 

-.331339, 

-.332310, 

-.883104, 

-.884071, 

3 

5  -.833347, 

-.833134, 

-.831111, 

-.873338, 

-.870970. 

3 

3  -.827373, 

-.677133, 

-.047770, 

.  008336, 

-.553459, 

3 

3  -.731510, 

-.318764, 

-.323036, 

-.833113, 

-.334968. 

3 

3  -.333393, 

-.333071, 

-.335533, 

3355S6. 

-.832664, 

3 

ir 

3  -.312303, 

-.792773, 

-.753321, 

-.578948, 

. 00S3S6/ 

3 

23T9  733=/ 

-.003357, 

-.475283, 

-.870819, 

-.733207, 

3 

3  -.773174, 

-.773333, 

-.781104, 

-.732017, 

-.732625, 

3 

3  -.722077, 

-.731200, 

-.773537, 

-.773707, 

-.761709, 

-J 

3  -.372442, 

-.479021, 

-.003357, 

-.001713, 

-.417859, 

J 

3  -.323234, 

-.353453, 

-.712347, 

-.7:3571, 

-.722325, 

3 

3  -.724377, 

-.723333, 

-.723272, 

-.722703, 

-.719149, 

r> 

3  -.700311, 

- .  333502, 

-.533330, 

-.405151 , 

-.001713, 

J 

3  -.3  ’3512, 

-.523231, 

-.533374, 

-.631321, 

-.646230, 

3 

3  -.233341, 

-.357432, 

-. G53720, 

-.853345, 

-.657674, 

3 

3  -.323070, 

-.343300, 

-.332727, 

-.593534, 

-.522977, 

n 

j 

3  .00 J333, 

-.000303, 

-.27S552, 

-.445859, 

-.523293, 

-J 

~  *  J  —  0  Vi) 

-.373732, 

-.532272, 

-.53-4377, 

-.585323, 

n 

.J 

3  ~ ,  ^  ~  3  3  0  j 

-.333280, 

-.579754, 

- . 572331 , 

-.557783, 

u 

3  “.‘■ytjjJO* 

-.273233, 

-.000909, 

-.000015; 

-.236101, 

3 

.0  .Vi:  ^ -it 

-.473753, 

-.431432, 

-.433207, 

-.502775, 

3 

3  -.593124, 

-.504332, 

-.504103, 

-.502333, 

-.453392, 

3  -.4"’3313, 

-.442131, 

-.239005, 

-.224010, 

-.000015/ 

3 

30,7.0  “233/ 

-.000003, 

-.174330, 

-.233733, 

-.354433, 

3 

3  -.401372, 

-.403212, 

-.412333, 

-.41 5247, 

-.415195, 

*"> 

J 

3  41.4221 , 

-.412383, 

-.409033, 

-.401333, 

-.337034, 

n 

3  “  ,  :  j  0  2  0  1 

-.133730, 

-.000003, 

-.000032, 

1 15435, 

3 

.  j  ~  J  7 

- ,23330 

-.903453, 

-.303542, 

-.313150, 

"5 

3  —  ~  J , 

-.315331, 

-. j 14371 , 

-.313133, 

-.303525, 

3 

.  - ,  £  ~  o  2  )  ?  5 

-.233/53, 

-.90:537, 

-.111454, 

-.000052, 

>  3..  ,  .  j) 

1  ~  a  2  1 

-, 154302, 

-.130712, 

— • 132733) 

3 

-J  “  .  .2  1  '  '  2>  7 

-.204133, 

-.204703, 

-.204732, 

-.204133. 

3 

3  r'T?vi> 

-.132314. 

-. ' v32 27, 

-. 154232, 

-.107333. 

3 

3  *  J  /  ■' 

-.000005, 

.013033, 

- .007433, 

-.033303. 

Il'j 


L 


.018890' 

.021819. 

.000826. 

.083214. 

.073824. 

.053844. 

.088153. 

.184310. 

.165306. 


.247505. 

.311390. 

.210048, 

.244360. 

.450375. 

.410515. 

.000000. 

.593440. 

.605705. 

.206024. 

.738814. 

.796274, 

.694278, 

.957860. 

.999039, 

.991341, 


.000000. 

.000000, 

.000000, 

.743785, 

.964870, 

.SS5433. 

.042140, 

.924419, 

.926451, 

.831729, 

.869017, 

.883668. 

.848504, 

.742226. 

.835207, 

.829495, 


.761222, 
.782525, 
.733410. 
.601276. 
. 722988, 
.713304. 
•  000336, 
.653400. 
.656841, 
.339572, 
.557765, 
.585318. 
.523298, 
.372847, 
.503925, 
.491874, 


.386991, 
.415051, 
.354336, 
.203240, 
.314670, 
.302397, 
.000004, 
. 199325. 
.202671, 
.043584, 
. 0G0347 , 


J 

$  - 

V  11.54, 

-.076930. 

*.31 73 j , 

-.031035, 

-.081963 

j  — 

031355. 

-.030014. 

"  .  ‘  1  » 

-  .  i  ■ .  3  .j 

- . 0R0 127, 

-.039669 

705190, 

.015553. 

“■  *  -'‘J'jU'J  J* 

■  .0-00002. 

.  i 1  j a ,  u3 , 

.103147 

735410, 

.071835, 

. 0£35 i 3* 

.053120. 

.  jij34  1,9 , 

.054332 

O^'jO !  3, 

.054713. 

. "35162. 

.  '5370.  , 

. 053330 . 

.064149 

■  , 

072327, 

.  '..‘3S3E0 , 

. 103354. 

.  1  '1172  1. 

-.0000027 

y 

Dh 

'A  f  234  ' 

.000000, 

. 135035. 

.  2o2-7  o3  , 

.255230, 

.218343 

v 

2 123 55. 

.203715, 

. 207545. 

. 205549, 

.205230 

3 

X) 

806576. 

.207307, 

.203  ',42, 

.*212537, 

.21 3600 , 

.225734 

7 

'■*> 

239342, 

.201143, 

.000000, 

-.00  0  0  :j  1 , 

.325205, 

.334356 

3 

33 1550, 

.332333, 

.378 7 75. 

.375553, 

.375839, 

.374585 

3 

5 

374347, 

.374320. 

. 37450 1 . 

.375221, 

.376535, 

.378331 

3 

3 

352444, 

.331600, 

. 384950 , 

.322554, 

-.000001 , 

.000000 

3 

3 

447745, 

.533473, 

.551925, 

, 552325, 

.562453, 

.563397 

3 

3 

552762, 

.551403, 

. 552354 , 

.362046, 

.561944, 

.563510 

3 

3 

532523 , 

.554325, 

.535423, 

.553316, 

.558360, 

.493554 

3 

3 

000000, 

.000000, 

.533331, 

.735743, 

.742203, 

.769425 

3 

5 

7GS3S5, 

.759300, 

.739354, 

.768329, 

.770034, 

.769489 

3 

3 

759152, 

.770303. 

. .  53533, 

. . 67433, 

.771525, 

.743000 

3 

S 

747631, 

. 715113, 

.000000, 

.000000, 

1.031332, 

.957860 

3 

3 

952230, 

1.0053S5, 

.331341, 

.333232, 

1.000391, 

.999039 

3 

3 

999377, 

.983977, 

.333033, 

1.000331, 

.933232, 

.991341 

3 

3  1 

00S35B, 

.952230, 

.357350, 

1.031322, 

.0000007 

DATA  T3B1/-1.0000CQ.-1. 300000.-1 
S- 1. 000000. - 1. 000000* -1. 000000. -1 
5-1.000000. -1.000000. -1. 000000. -1 
5-1.000000,-1.000000,-1. 000000, 

S  -.952143,  -.972313,  -.832515,  - 
$-1. 001583,-1. 000718, -1.0003SS.-1 
$-1.013562.  -.976S41.-1 .033341,-1 
$  -.733253,  -.934475,  -.373754,  - 
3  - . 999S49,  -.939790,-1.000373, -1 
S  -.999592,-1.000513,-1.002753,  - 
3  -.042140,  -.047770,  -.357053,  - 


3 

$  -.999975,- 

1.000433, 

-. 9395S2, 

-1.000217, 

-.997735, 

-.984089, 

3 

3-1.003423, 

-.336322, 

-.047770, 

.003335, 

-.785534, 

-.970029, 

3 

3  -.931972, 

-.935053, 

-.333331, 

-1.000227, 

-1.000131, 

-.999340, 

3 

3- 1 . U 00373,  - 

1.000032, 

-.393324, 

-1.000713, 

-.933333, 

-.993933, 

3 

3  -.995334, 

-.932043, 

-.332737, 

- .815523, 

.00S3SS/ 

3C 

3 

DATA  I3B27 

-.003357, 

-.734549, 

- . 25 1252, 

-.979300, 

-.532541, 

3 

3  -.937615, 

-.333527, 

- .  S33770, 

-.398753, 

-.999012, 

-.998877, 

3 

3  - .933333, 

-.333355, 

-.933335, 

-.397323, 

-.932751, 

-.979511, 

3 

3  -.953233, 

-.739347, 

-.003357, 

-. 001713, 

-.395370, 

-.931239, 

3 

3  -.974705, 

-.930749, 

-.933110, 

- . S335S2, 

-.993715, 

-.997850, 

3 

3  -.939423, 

-.933534, 

-.333229, 

-.333219, 

-.997552, 

-.597354, 

3 

3  -.991854, 

-.974367, 

-.923379, 

-.533331, 

-.001713, 

.  000386, 

3 

3  -.543313, 

-.903353, 

-.337714, 

-.237333, 

-. 993304, 

-.S9S573, 

3 

3  -.333371, 

-.933303, 

-.997571, 

.333315, 

- . 333333, 

-.997355, 

"> 

-) 

3  -.995332, 

-.934377, 

— . — od 340 , 

- . £3 , 334 , 

-.901591, 

-.533833, 

3 

3  . 000333, 

-.000903, 

-.590133, 

■  .372571 , 

-.953490, 

-.983681, 

3 

$  -.930511, 

-.332719, 

- . 333539, 

-.533334, 

- . S93747 , 

-.993730, 

3 

3  - . 933544, 

-.933549, 

-.332700, 

- .  33r'o23, 

-.333704, 

-.353489, 

3 

S  -.372523, 

-.333333. 

‘ . 1 1  +.i  ;  9  )  3 , 

-.000015, 

-.533533, 

-. 84SS08, 

3 

3  -.34SS‘o5, 

-.377233, 

-.335404, 

-.533575, 

-.990322, 

-.389379, 

r> 

-t 

3  -.331131, 

-.930251, 

-.333303, 

- • 390337 , 

- . 933562, 

-.986351, 

3 

3  -.979124, 

-.947003, 

-.343301, 

-.57.5343, 

-.000015/ 

.SL 

3 

DATA  r2B37 

-.000003, 

-.521. 324, 

•.313133, 

-.931703, 

-.958043, 

3 

3  - . 977270 , 

-.331135, 

C—  '  -1  ,  « 

•  -J  w  —  -  _  ,L  » 

-.922009, 

-.932914, 

-.932435, 

n 

3  - .  33.2252, 

-.932572, 

— .  33jd33, 

-.977942, 

-.353339, 

-.931869, 

-> 

3  -.818379. 

-.521027, 

-.000003, 

-  .010052, 

-.491214, 

-.787378, 

3 

3  -.311475, 

-.353337, 

- » 9 3  -  o  0 , 

-. 853035, 

-.339433, 

-.969411, 

j 

•5  - .  370045, 

-.953775, 

-.935334, 

-.333339, 

-.337733. 

-.564274, 

3 

3  -.353727, 

-.311553, 

-.79?  ?53. 

-.•133053, 

-.000052, 

.000004, 

3 

3  -.431370, 

-.753357, 

- .  533324, 

- . 970332, 

-.942374, 

-.948234, 

3 

3  ‘.91978:, 

-.94903  i, 

-.83  •727, 

- ! 3 13319, 

-.943549, 

-.950201, 

3 

;  -  .  J 173  :-3. 

-.3439'  1. 

- .  83 1 3D5 , 

. 3?  1095, 

-.753329, 

-.458226, 

3 

3  .  :  oj  v,  i. 

-  . , i ,5 0  5, 

-.12!  1 5 

-  .  7 0 .j3_>3 » 

- . 34243 • , 

-.692722, 

3 

3  ■  . '  j  j  7  -j  t 

‘.911 

••  .913/35, 

-.  3 1 3 1 72, 

-.914024, 

-.913324, 

j  ‘.915583. 

“.  31  3  471, 

.  9 , 1  9  ! . 

-i-V'3332. 

-.393035, 

-.842483, 

-.4135.3, 

.  O  !  4  , 

.••  i'O  '3. 

~.  j.  3534, 

-.644307, 

1 

j  . 779598 , 

_  7 , 

■,  ;  ,  ; 

33-  (35, 

-.33  1105, 

-.854061, 

090900,- 

oooooo, - 
009000,- 
031332, 


•1.000090,-1.000000, 
•1.000000,-1.000000, 
1.000000, -1.000000, 
-.391353,  -.787651, 


353377,  -.939771,  -.999732, 
002235,-1.000166,-1.001937, 
155170,  .031332,  -.042140, 
93343S,  -.997347,  -.999244, 
000073,-1.000010,-1.000515, 
932253,-1.038331,  -.998814, 
£35253,  -.934043,  -.996921, 


3 

3 

-.33 -.333. 

-.334553, 

-.33  ::'3, 

-.354313,  -.251713, 

-.843933, 

3 

T 

0 

-.332322. 

- .  7"’94?3> 

-.342034, 

-.•2’’I237.  -.  919003/ 

r 

DATA  ’33 -V 

. 003000, 

-.310433, 

-.530723,  -.231313, 

-.733334, 

3 

!,» 

-.7'4D3'  ! . 

- .  753335, 

- . 755333, 

-."55314,  -.753225, 

-.753430, 

3 

X> 

-.733133, 

-.723195, 

_  1 

t  1  _ _ <—*!» 

-.713743,  -.753-21. 

-.531433, 

j 

$ 

-.543  !  '2. 

-.931733, 

. 0  0  0  ?  0 1 

-.000001.  -. ' 33793, 

-.394309, 

3 

3 

- .  s  1 655  -1  > 

-.522503, 

-.5"’5352> 

-.231733,  -.533355, 

-.534012, 

3 

3 

-.534223, 

-.534193, 

-.53103’ , 

-.532373,  -.531723. 

-.575997, 

3 

-.522532, 

-.5135  !3, 

-.334113, 

-.'32053,  -.000001, 

.000000, 

3 

-.03432-1, 

-.135323, 

-.234455, 

-.223333,  -.293573, 

-.300552, 

3 

$ 

-.302135, 

-.303472, 

-.301333, 

-.202303,  -.302942, 

-.301533, 

3 

0 

-.301413, 

-.233711, 

-.231507, 

-.252345,  -.145402, 

.011875, 

3 

5 

.000000, 

.000000, 

.332035, 

.247319,  .133913, 

.133132, 

3 

$ 

.17-1393, 

.  1747' 2, 

.174340, 

.173400,  .174533, 

. 173985, 

3 

2 

. 173713, 

.  174737, 

. 174132, 

.175513,  .185431, 

. 182832. 

3 

2 

.230071, 

.359305, 

.000000, 

.000000,  1.031332, 

.957830, 

3 

2 

.952230, 

1.003333, 

.931341, 

.392282,  1.000331. 

.333039, 

3 

2 

.399377, 

.339977, 

.933033, 

1.000391,  .933232, 

.S91341, 

3 

3C 

3 

2 

1.003333, 

.952230, 

. 927330, 

1.031332,  .000000/ 

DATA  1431/ 

-1.000000, 

-1.000000, 

-1.000000,-1.000000,- 

-1.000000, 

3 

2- 

-1.000000, 

-1.000000, 

-1.000000, 

-1.090000,-1.000000,- 

-1.000000, 

3 

2- 

-1.000000, 

-1.000000, 

-1.000000, 

-1.000009,-1.000000,- 

-1.000000, 

3 

2- 

-1.000000, 

-1.000000, 

-1.000000, 

.031332,  -.333300, 

-.751218, 

3 

2 

-.914343, 

-.933203, 

-.353910, 

-.SSolOS,  -.335329, 

-.934935, 

3 

2 

-.333304, 

-.933702, 

-.933073, 

-.339213,  -.935375, 

-.958311, 

3 

2 

-.934153. 

-.941433, 

- 1 . 032932, 

-1.172737,  .031332, 

-.042140, 

3 

2 

-.745919, 

-.371901, 

-.333702, 

-.319753,  -.923304, 

-.923552, 

3 

2 

-.923333, 

- . 323534, 

-.927720, 

-.927153,  -.923940, 

-.928138, 

3 

2 

-.923354, 

-.927732, 

-.935713, 

-.903353,  -.930153,- 

-1.017783, 

3 

2 

-.042140, 

-.047770, 

-.879353, 

-.904337,  -.870303, 

-.888256, 

3 

2 

-.334009, 

-.835039, 

-.335004, 

-.833794,  -.335323, 

-.834493, 

3 

2 

-.834231, 

-.335423, 

-.334105, 

-.835030,  -.833353, 

-.B3S3S7 , 

3 

2 

-.913135, 

-.900323, 

-.047770, 

.003333,  -.785431, 

-.847400, 

3 

2 

-.824573, 

-.333334, 

-.333717, 

-.833234,  -.337321, 

-.833201, 

3 

3 

-.333543, 

-.837251, 

-.833323, 

-.333573,  -.833752, 

-.833353, 

3 

3 

-.340503, 

-.323391, 

-.331101, 

-.317324,  .003333/ 

3C 

3 

DATA  1432/ 

-.008357, 

-.713539, 

-.794351,  -.774029, 

-.734215, 

3 

3 

-.733334, 

-.733379, 

-.733549, 

-.783235,  -.733585, 

-.733378, 

3 

3 

-.733331, 

-.733354, 

-.733434, 

-.734133,  -.734315, 

-.773919, 

3 

0 

-.723344, 

-.721744, 

-.003357, 

-.001713,  -.357153, 

-.737640, 

3 

3 

-.718329, 

-.727195, 

-.725374, 

-.723301,  -.725733, 

-.724499, 

3 

3 

-.723221, 

-.725233, 

-.725043, 

-.723223,  -.725075, 

-.726630, 

3 

3 

-.723149, 

-.717332, 

-.731700, 

-.533213,  -.001713, 

.000366, 

3 

3 

-.571192, 

-.335170, 

-.355241, 

-.331231,  -.530421, 

-.650721, 

3 

3 

-.330201, 

-.353171, 

-.330433, 

-.339723,  —.359300, 

-.660547, 

3 

3 

-.353733, 

-.331159, 

-. GS0433, 

-.354034,  -.330524, 

-.556373, 

3 

3 

.000333, 

-.000903, 

-.475173, 

-.532332,  -.533535, 

-.587074, 

3 

3 

-.337337, 

-.533974, 

— . 53332J, 

-.533553,  -.533503, 

-.586490, 

3 

3 

-.533234, 

— . 233332, 

— • 533520 , 

-.537703,  -.537053, 

-.533506, 

O 

5 

-.532373, 

-.474797, 

-.000303, 

-.000015,  -.413353, 

-.507417, 

3 

-. 503307, 

-.503433, 

-.507433, 

-.507432,  -.503333, 

-.505942, 

r> 

j 

3 

-.507022, 

- . 203335, 

-.503233, 

-.507153,  -.503702, 

-.508112, 

o 

u 

3 

-.507213, 

- . 505027 , 

-.500147, 

-.334151,  -.000015/ 

3" 

DATA  7433/ 

-.000003, 

-.320372, 

-.412314,  -.413031, 

-.416303, 

3 

3 

-.’,17233, 

-.417433, 

-.413374, 

-.413337,  —.413733, 

-.416493, 

r> 

j 

3 

-.413502, 

-.417013, 

-.417073, 

-.413235,  -.413554, 

-.417645, 

3 

3 

-.103333, 

-.310233, 

-.000003, 

-.000052,  -.223702, 

-.312095, 

3 

3 

- , , _ ^  -■  3  — 7 

-.313571, 

-.313531, 

-  .317227 ,  —.313333, 

-.316778, 

j 

1a 

— .  j  _  h  j  3  4 , 

- ,  3.1. 2S 

-.313730, 

-.31393?,  -.317515, 

-.318509, 

3 

3 

-.312410, 

-.320573, 

-.309297, 

-.221335,  -.000052, 

.0:00004, 

3 

-. 150333, 

-.203371, 

-.213207, 

-.210190,  -.203235, 

— . 207 107, 

3 

3 

.  a  .  : 

-.203203, 

-.203132, 

-.203113,  -.203215, 

-.206474, 

-> 

j 

3 

■  ,20~T'2, 

-.203213, 

-.203703, 

-.212331,  -.200313, 

-.127103, 

3 

3 

;• ! , 

-.000005, 

- . 023223, 

-.033017,  -.033430, 

-.037715, 

•j 

3 

—  •  0  3"  3  TO , 

-.03 -323, 

-. 033312, 

-.033333,  -.033227, 

-.033224, 

u 

3 

— .033333, 

-.'ll  310, 

-. "3  1320, 

-.035331,  -.037533, 

-.093382, 

3 

-.''D^DX, 

-.020133, 

-.'1 00  9)5, 

-.000002,  .033327, 

.042659, 

*•> 

3 

.  733133, 

.043332. 

T't  150, 

.053013,  .  0o33-!0» 

.053179, 

3 

.05:  It, 

15302-;, 

.' 53523, 

.053334,  .052331, 

.051354, 

O 

3 

.0 43312, 

. .33033, 

. 034523,  -.000002/ 

T 

DATA  T43: ' 

,  . VVT 1 0  1, 

.  T'1-0 

.139-33,  .133132, 

.199304, 

1  :  o 


3 

5 

.201593, 

.204573, 

.205342, 

.204793, 

.203135, 

.205515 

3 

0 

. 205137 . 

.205715, 

.202359, 

.202557, 

.200333, 

.183231 

3 

3 

. 199215. 

.227337, 

.000000, 

-.000001, 

.377393, 

.358224 

3 

5 

.3  10 150. 

.333393, 

.339445, 

.372032, 

.373215, 

.373255 

3 

0 

. 373305. 

.373550, 

.373233, 

.373243, 

.372002, 

.333523 

3 

3 

.333935. 

.349153, 

.359143, 

.375935, 

-.000001, 

.000000 

3 

3 

.510527. 

.521339, 

.529337, 

.555347, 

. 555533, 

.561830' 

3 

3 

. 5S2S39. 

. 530413, 

.534150, 

.532303, 

.531470, 

.563303: 

3 

$ 

.559904. 

.553547, 

.530703, 

.530083, 

.545407, 

.534037, 

3 

3 

.000000. 

.000000, 

.744235, 

.727273, 

.723342, 

.768332, 

3 

5 

.732253, 

.733393, 

.770050, 

.733224, 

.770319, 

.769714, 

3 

3 

.733357, 

.770743, 

.737540, 

.734029, 

.770339, 

.730290, 

3 

5 

.741703, 

.773371, 

.000000, 

.000000, 

1.031332, 

.957830, 

3 

3 

.952230, 

1 • 003333, 

.331341, 

.933232, 

1.000331, 

.999039, 

3 

3 

.9393 77. 

.399377, 

.939033, 

1.000391, 

.933232, 

.991341, 

3 

3C 

5 

1.00S33S, 

.952230, 

•9573S0, 

1.031332, 

.000000/ 

3C 

3C 

INTERPOLATE 

NUMERICAL 

SOLUTION 

BY  QUADRAT 

ICS 

3C 


3  CALL  QUADRQC  X,  Y,  TABLE*  GRIB4.C,  GRID1 » NGRID*  NGRID,  NGRDD,  NGRDD, 
3  5  DERU5L) 

3C 

3  TRUE  =  DERUSL(S) 

3C 

3  RETURN 

3  END 


’EOR 

a  a a  a  a  a  a  a  a  a  a  a  a 

*  MACRO  47  a 

aaaaaaaaaaaaa 

*  2020021003000 

1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  $  POISSON 

1  UXXS  +  UYY$  =  F(X,Y) 

2  DIRICHLET 

2  X=0 .  •  U=TRUE(X,Y) 

2  X=1 .  .  U=TRUE(X,Y) 

2  Y=0.  .  U=TRUE(X,Y) 

2  Y=l.  ,  U=TRUE(X» Y) 

3  FUNCTION  TRUE(X.Y) 

3  TRUE  =  (X»Y0**(.5*(S.A)) 

3  RETURN 

3  END 

3  FUNCTION  F(X,Y) 

3  IF  C  X.EQ.O.  .OR.  Y.EQ.O.  )  GO  TO  10 

3  F  =  C.5*UA))*(.S*(&A:i-l.)*(X*Y)«*(.5»(&A)-2.)*(X*X+Y*Y) 

3  RETURN 

3  10  F  =  0. 

3  RETURN 

3  END 


*  EOR 

a  a  a  a  a  a  tsastii  a 

*  MACRO  43  » 


1 

1 

2 

2 

p 

2 

•n 

3 

3C 

3C 

3C 

30 

3C 

3C 

'T'P 

3C 

3C 

nr 


2000001202000 

TWO  DIMENSIONS 

UXX5  +  UYY5  +  R(X» Y)U$ 

DIRICHLET 


0.0 


X=0.  ,  U=l. 

X=1 .  ,  U=l. 

Y=0 .  .  U=l. 

Y=1 .  ,  U=l. 

FUNCTION  TR'JEtX*  Y) 

aaaaaaaaaaaaaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


MACRO  43  PARAMETERS 


« 

a 

:  aaaaaaaaaaaaa a aaaaasaaaa a aaaaaaaaaaaaaaaaaaaa 

a 

A  I  3  I  C  I  D  * 

- T - 1 - 1 -  a 

2  I  .04  I  1  I  1  * 

T  T  I  a 


113 


3C 

-3 

25 

I  .04  I  1  I  2 

» 

3C 

I  I  I 

* 

3C 

< 

2 

I  .04  I  2  I  3 

» 

'S!*' 

*3 

I  I  I 

* 

3 

25 

I  .04  I  2  I  4 

* 

-C 

* 

I  I  I 

* 

3 

ra 

I  .50  I  2  I  5 

* 

33 

***********************  ***************#*MHMHHHMHHHH*** 

3~ 

n 

EAL  DZR’JSL 

(3).  GRIDOO) .  TA3LEC20, 20 ) » 

3 

3 

1131(1001.  T1B2 

(100).  T1 33(100).  T1B4( 100 ) » 

3 

3 

T23 1 (  1 

00).  T232 

(100),  T233( 100 ) ,  T2B4( 100). 

3 

3 

7331(100).  T3B2( 100).  T333(100).  T334(100). 

3 

3 

T43K100),  7432 

(100),  7433(100),  T434UOO), 

3 

3 

7531(100).  7532 

(100),  T5?3( 100 ) >  T5B4C100) 

3 

[T 

0UIUALENGE 

( TABLE ( 1 

,  1)  .  T8.D31  ( 1 ) )» 

o 

o 

1 ) 

( TABLE ( 1 

,  G)  .  TiDB2(l)). 

»J 

3 

( TABLE ( 1 

,11)  ,  78.333(1)), 

3 

3 

( TABLE ( 1 

,13)  ,  T4D34(1)) 

3 

n 

47 A  NGRID. 

NGRDD,  GRID  /20.  20,  0.0000000,  0.052G31G, 

3 

50 

. 1 052332. 

0. 1573947 

,  0.2105233,  0 . 2G3I573.  0.3157835, 

3 

50 

. 333421 1 » 

0.4210523,  0.473S342.  0.52S3153.  0.5783474. 

3 

■30 

.3315333. 

0. S342105.  0.7333421,  0.7334737,  0.3421053. 

3 

or 

30 

.3347333. 

0.9473334 

,  1.0000000/ 

J  — 

33 

P 

’’PROXIMATE 

SOLUTION 

Or  LINEARIZED  PROBLEM  USING 

33 

~r 

HDDIE-ACr  (MITK0D=4, 

IGRDER=41 >  20  X  20 

GRID) 

JL 

r 

J 

r 

A7A  T131/ 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

r 

J) 

3 

1.000000. 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

3 

3 

1.000000. 

1.000000, 

1.000000,  1.000000, 

1.000000, 

1.000000, 

3 

3 

1.000000. 

1.000000, 

1.000000,  1.000000, 

.993444, 

.988953, 

3 

3 

.333332. 

.933132. 

.931233,  .973347, 

.978839, 

.978191, 

3 

5 

.377374, 

.977374, 

.973191,  .973333, 

.979847, 

.381253, 

3 

3 

.333132, 

. 335SS2, 

. 3383S3,  .393444, 

1.000000, 

1.000000, 

3 

3 

.333333. 

.330721, 

.374445,  .9G9321, 

.965930, 

.963166, 

3 

3 

.331133. 

.933323, 

.959301,  .953301, 

.959923, 

.961193, 

3 

S 

. 333133. 

. 9S5930, 

. S39S21,  .974445, 

.980721, 

.988953, 

3 

3 

1.000000. 

1.000000, 

. S353S2,  .974445, 

.965552, 

.958802, 

3 

5 

.333504, 

. 349515, 

. 94SS57,  .944313, 

.943909, 

.943909, 

3 

3 

.344313. 

.943357, 

.949515,  .953504, 

.953802, 

.955552, 

3 

3 

.374445, 

. S355S2, 

1.000000,  1.000000, 

.933152, 

.9GSG21, 

3 

3 

.353302, 

.3o0235» 

. 9435S1 ,  .938504, 

.934859, 

.932517, 

3 

5 

.331332. 

.931332, 

.932517,  .934339, 

. 933504, 

.943551, 

3 

33 

3 

S 

. 350233. 

.953302. 

.359321,  . 9331F2, 

1.000000/ 

DATA  T1D2/ 

1.000000, 

. S312G3,  .335930, 

.953504, 

.943551, 

3 

3 

. 93o752. 

.329305, 

.925515,  .922733, 

.921355, 

.921355, 

3 

0 

.322733, 

.325515, 

.923305,  .935752, 

.943551, 

.353504, 

3 

3 

.335330. 

.331233, 

1.000000,  1.000000, 

.979347, 

•  953 1GG, 

3 

~ 

.945515, 

.933504, 

.323305,  .223152, 

.313335, 

.915207, 

3 

-> 

.913337, 

.313337, 

.315207,  .913333, 

.323152, 

.923805, 

3 

3 

.332504, 

.943515, 

. S331SS,  .973347, 

1,000000, 

1.000000, 

3 

3 

.972333, 

.331133, 

.943307,  .934333, 

.325515, 

.318335, 

3 

3 

.313123, 

.309733, 

.303039,  .903039, 

.303739, 

.913128, 

3 

3 

*  31 3333, 

.325515, 

.334333,  .343357, 

.951193, 

.978833, 

3 

3 

1.000000, 

1.000000, 

.373131,  .953323, 

.944313, 

.932517, 

3 

3 

.222733, 

.315207, 

.903739,  .903175, 

.904420, 

.304420, 

3 

3 

•  2 .3173, 

.303733, 

.915207,  .322733, 

.932517, 

.944813, 

3 

3 

.352223, 

.373131, 

1.000000,  1.000000, 

.977874, 

.353301, 

3 

3 

. 342303, 

.331332, 

.221335,  .913357, 

. 903059, 

.904420, 

3 

3 

.302320, 

.302320, 

.304420,  .303033, 

.913557, 

.921355, 

r*r 

3 

.331332, 

.343303, 

.339301,  .977374, 

1.000000/ 

wi  -» 

3 

r> 

A7A  7133/ 

1.000000, 

.377374,  .359301, 

.943909, 

.9313S2, 

3 

3 

.321235, 

.313337, 

.202039,  .304420, 

.902520, 

.902520, 

3 

3 

.504420, 

.303033, 

.913337,  .321335, 

.931352, 

.943909, 

3 

3 

.232201, 

.977374, 

1.000000,  1.000000, 

.973191, 

.353923, 

"3 

-) 

■j 

.2-:  (21 3, 

.235517, 

.222733,  .313207, 

.309739, 

.905175, 

J 

3 

.504 420, 

.504420, 

.903173,  .203733, 

.315207, 

.922733, 

3 

. 2225 1 7, 

.344313, 

-953223,  .973131, 

1.000000, 

1.000000, 

3 

-j 

.372333. 

.331133, 

."'’2357,  .334333, 

.925515, 

.918336, 

3 

3 

.313123, 

.303733, 

,3.0033,  .203033, 

.SC9739, 

.913128, 

3 

3 

. 3  22^3, 

. 32351 j, 

.  n3':333>  .343357, 

.231193, 

.979039, 

3 

3 

1.000000, 

1.000000, 

.373347,  .333133, 

.343515, 

.933504, 

il  5 


*  *  3  ",  ”  , 

.9 .3337, 

.913357. 

r  r  d  » 

.  S3 23  '4» 

.£-,£315, 

'  .  , 

1 . 1  ■  ■  1  * 

.331253. 

.£35930, 

7  2 . 

.  _  : 1  "  *  )» 

.525515, 

.922733, 

j  J  , 

.  7  ir  3  5  *.  .3  * 

.  ^33  o» 

.935752, 

; 

.  ...  .2  * 

1  .  J  .  0  0  m  1 J  • 

- 

.  i  ::.'22i , 

.553312. 

. C5023S, 

.  ~  ; . 

«  .121' 

.  1  ..  0  7  T’  , 

.  .231232. 

. D3i332, 

j  ~  j  . 

.  J  1  2  3  1  ♦ 

.  3 . 5  _  7>  i  * 

.350233. 

.£58302, 

.  "  Ji  '•  22* 

1,0  v.:  j  0 , 

i.  :  i ' 1 o : , 

. 535222, 

.£74445, 

“ 

,  _  j  7  .  .j  • 

.  7,13  3. 2 1 

.£55304, 

.  S  •'*  3  3 1  5  * 

.  o-to£o7  » 

.944313, 

.  .  '  ). 

.  5:333. 

.244313, 

.  9  1 9357’  i 

. 9453-5, 

. 353504, 

.  £  :  2. 

.£35333, 

•  3"4  *.45* 

.335222, 

l.OOOOCO, 

1.000000, 

S) 

3. 

,  ‘ 3  : 3  J  * 

.230721, 

.  9 .  4 -t-4 o * 

.322221, 

.535330, 

. £53166, 

.0 

.339323, 

.553301, 

.553391, 

.553323, 

.931193, 

“ 

.333330, 

.533231, 

.  3  ?  ■  J  i  4  5  * 

.530721, 

. S3oS33» 

.J 

: .  ■■■•!.'  i i ). 

1 .  '  ooooo, 

.  G ..  3  •  ’  4  li 

. 935532, 

. 933132, 

j 

*, 

,  3 w  ->3 » 

.S”33-r, 

.9  "2  023, 

.573131, 

.977374, 

.577874, 

J 

J 

.3"219I  , 

. 3T3323, 

.375347, 

,£31223, 

. 3331G2, 

•S356G2, 

3 

.222:33, 

.333444, 

1.00 oo 00, 

.1 . 909000, 

1.000900, 

1.000000, 

3 

-3 

i . :o:  )}o. 

1 . 1000 . 0. 

1.001000, 

1.990999, 

1.009000, 

1.000000, 

—i 

j 

:3 

1  .  *i  *  J  *!  ij  * 

i. rooioo. 

1 .  10  0000, 

1.999009, 

1.009000, 

1.000000, 

3 

f 

1 .  ;‘i  ‘  j  0  o , 

i.  v:  joco. 

1. 000  100, 

1 . 0909907 

1.000093-' 

3C 

3 

PnYi  7231  •' 

1.0  ooooo. 

1 , 000000, 

1.990999, 

1.000900, 

1.000000, 

3 

1 .  v  00  3  3  3, 

1.  '100000, 

1.000009, 

1.909900, 

1.090000, 

i. 000000, 

n 

J 

~ 

i .  ''00110. 

1.000000, 

1.  100000, 

1.090990, 

1.090000, 

1.000000, 

3 

3 

1.0  10011, 

1.000000, 

1.909000, 

1.090000, 

.933223, 

.988547, 

3 

.£25039. 

.332333, 

.33 "233, 

.3-2332, 

.377744, 

.977033, 

3 

3 

.3'  0333. 

«  3  3 3 3 3 1 

.9^7033, 

.377744, 

.973333, 

.530333, 

3 

.£32333. 

.335032. 

.£33541’. 

.333223, 

1.000000, 

1.000000, 

3 

3 

.233 547, 

.373310, 

.  973273, 

.333131, 

.334170, 

.SSI  107, 

3 

3 

.£33003, 

.357337, 

.£33333, 

•S5S333. 

. 5d7337  » 

.559048, 

3 

3 

.931137. 

.234170, 

.333131, 

.973273, 

.379310, 

.383547, 

3 

3 

1 .  103000, 

1.000000, 

. 2350S2, 

.372273, 

. ES3333, 

.353344, 

3 

Xi 

.350553. 

.343344, 

. 943543, 

.241533, 

. 340554, 

.540554, 

3 

3 

.341533, 

.343543, 

.343344, 

.350353, 

.553344, 

.533323, 

3 

3 

. 9_32?3, 

.335032, 

1.000000, 

1.0001  10, 

.332333, 

.933131, 

3 

3 

.333344, 

.947437, 

.540302, 

.934343, 

.330333, 

.928338, 

3 

3 

.327073, 

.927073, 

.323333, 

.220323, 

.534343, 

.340308, 

O 

-J 

3 

.3  17437, 

*  S5SS44* 

.333131, 

.232333, 

1.000900/ 

3~ 

“i 

9Til  T232/ 

1.000000, 

.230333, 

.334170, 

. 550353, 

.340303, 

_) 

3 

.331901, 

, 32o4S3» 

.520303, 

.317773, 

.313237, 

.913237, 

3 

3 

.317773, 

.320303. 

. 325133, 

.331301, 

,340303, 

. S505o3, 

3 

3 

.334170, 

.330333, 

1.000009. 

1.090009, 

.373333, 

.931187, 

3 

3 

.343344, 

.234343, 

.325423, 

.913031, 

.909322, 

3 

. 307342, 

.307343, 

. 933SOP - 

.313031, 

.913235, 

. S254G8, 

3 

3 

.334343, 

.943344, 

,33.1137, 

.373323, 

1.000000, 

1.000000, 

3 

3 

.  37774  4. 

.353043, 

.  3  !554o. 

.330333, 

.320309, 

.913031, 

3 

'■j 

•30?wi3> 

.  93337:), 

.901252, 

.301332, 

.503375, 

.307233- 

.J 

3 

.313031, 

.320303, 

. £3'333, 

.  3 -! 337  j  i 

o 3 w 3043 7 

.977744, 

“5 

3 

1.0  1  1  00  0. 

1.000000, 

.377033, 

.557337 , 

.341533, 

.928333, 

3 

3 

.317773, 

.909223, 

.30237-5, 

.333730, 

.397372, 

.837872, 

3 

3 

,333~21, 

.301 37 3 i 

.33-322, 

.317773, 

.323353, 

.911539. 

3 

3 

c  ~  :?? 

.377033, 

1.100000, 

i  . OO^O'iO , 

.373333, 

. S53S39, 

3 

3 

.  3 "  i  D  3  2  4  y 

.92  ”'073, 

.912237. 

.307342, 

.301352, 

.397372, 

n 

-j 

3 

, 225307, 

,  22  7307, 

.537372= 

.311352, 

.307342, 

.913287, 

Si 

s> 

. £27079, 

.  3 1 jj j4« 

.232333, 

. 3733337 

1.001900/ 

-{ 

2 

,070  “233  ' 

i.jooooo. 

.372233, 

.333323, 

.340554, 

.227079, 

.  j 

3 

O’  2  277 
.  J  _•  _  J  <  1 

.307342, 

.  £0  ’  532, 

.337372. 

.325307, 

.895307, 

3 

j 

.  3  31'372, 

.  301352, 

.3°72!2, 

.313237, 

.527073, 

. 9405d4> 

3 

3 

.£32293, 

.3  '3233, 

1.003009, 

1,090000- 

.977033, 

.957337, 

3 

2  r-533. 

.223233, 

. 517773, 

.912373, 

.833790, 

j 

, 3371? 3  7 

.337372, 

.  .33730, 

.  3U5322 » 

.917779, 

- 

r  j  ~  2?  -r  ~j 

.3415-3, 

.£37237, 

.977933, 

1.909900, 

1.000000, 

.j 

„  37773  % 

223  j', 3, 

.  513515, 

.539323. 

.921309, 

.513031, 

3 

3 

.207323, 

.  ~  1  1 3  7  5  > 

.501.352, 

.391332- 

. 30337j, 

.907339, 
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.  221313, 

.917779, 
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.932333, 
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.253344, 
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3 

0 
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3 

3 
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.340303, 

.347437, 
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.941533, 

3 
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1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 
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1.000000, 
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1.000000, 

1.000000, 
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1.000000, 
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1.000000, 
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3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 
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3 

3 
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.973374, 
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3 

5 
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.373279, 
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.330304, 

.382115, 

3 

S 
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.333233, 

.533330, 
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1.000000, 

1.000000, 

3 

3 

. S33330, 

.931433, 

. 973558, 
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.337535, 
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3 

5 

.333217, 

.332050, 

.331473, 

.331479, 

.332050, 

.933217, 

3 

3 

. 335033, 

.337595, 

.971033, 

.975553, 

.331433, 

.389360, 

3 

5 
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1.000000, 

.383233, 

.975553, 
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.330843, 

3 

3 

.355313, 

.352221, 

.943583, 

.947335, 

.347033, 

.347066, 

3 

3 

.347835, 

.949533, 

.352221, 

. 955313, 

.330343, 

.367269, 

3 

3 

.375553, 

.333233, 

1.000000, 

1.000000, 

.333335, 

.971033, 

3 

3 

.330343, 

.352332, 

.943827, 

.941951, 

.938304, 

.936445, 

3 

3 

.935333, 

.935333, 

.933445, 

.333304, 

.941951, 

.946627, 

3 

3C 

3 

3 

.352332, 
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DATA  T332/ 

1.000000, 

.382115, 

.S37535, 

.355913, 

. 94S627 , 

3 

3 

.939377, 

.933333, 

.923334, 

.327381, 
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3 

3 
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.933333, 
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3 

5 
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1.000000, 

1.000000, 

.930304, 

.335035, 

3 

3 

.952221, 

.341951, 

.933333, 
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.323311, 
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3 

3 
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.313031, 
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3 
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3 

3 
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3 

3 
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5 
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113 


3 

$ 

.946627, 
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.936445, 

.935386, 
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3 

$ 
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1.000000, 
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$ 
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3 

$ 

.947066, 
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.947895, 

.949589, 

.952221, 

.955913, 

3 

S 
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.975558, 

.986233, 

1.000000, 

1.000000, 
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$ 

.989360, 

.981493, 

.975558, 

.971033, 

.967595, 
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3 

$ 

.963217, 

.962050, 

.961479, 

.961479, 
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$ 
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$ 
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.979279, 
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3 
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1.000000, 
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1.000000, 
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1.000000, 
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1.000000, 

1.000000, 
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1.000000, 
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1.000000, 
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.931366, 
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$ 
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.993468, 
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$ 
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$ 
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.960186, 
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.959571, 
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$ 
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$ 
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.947022, 
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.944304, 
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.945198, 

.947022, 
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$ 

.978966, 
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3 
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1.000000, 
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.905217, 
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$ 
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$ 
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3 

3 
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.933013, 

.923325, 
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.910473, 
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$ 
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$ 
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.961443, 
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.918973, 

3 

$ 

.913823, 

.910473, 

.908823, 

.908823, 
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3 
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.961443, 
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.949849, 

.938935, 

3 
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.923735, 

.918973, 

.915830, 
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3 

$ 

.915880, 
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.923735, 
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.949849, 

3 

$ 

.963395, 

.979963, 

1.000000, 

1.000000, 

.981366, 

.966132, 

3 

$ 

.953800, 

.943941, 

.936206, 

.930320, 

.926076, 

.923325, 

3 

$ 

.921973, 
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.923325, 

.926076, 

.930320, 

.936206, 

3 
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.953800, 

.966132, 

.981366, 

1.000000/ 
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$ 
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.935338, 
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3 

$ 
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.983248, 

1.000000, 

1.000000, 
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.974578, 

3 

$ 
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.953800, 

.949849, 
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1.000000, 
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1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 
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1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 
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1.000000, 

1.000000, 

1.000000, 
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3 

5 
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1.000000. 

1.000000, 

1.000000, 

.933473, 
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3 

5 
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.933233, 

.231330, 

.973331, 

.373997, 

.973357, 

3 

3 
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3 
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.959333, 

.353333, 

. S3025H, 

.361504, 

3 

3 

.933431, 

.533131, 

.333331, 

.374303, 

.980334, 

.988020, 

3 

3 

1.003000, 

1.000000, 

. 335745, 

.974309, 

.365301, 

.959110, 

3 

3 

.S3337’3, 

.949333, 

.247114, 

.945233, 

.344405, 

.944405, 

3 

3 

.345223, 

.347114, 

.342933, 

.953373, 

.358110, 

.965901, 

3 

3 

.974303, 

.  93574o, 

1.000000, 

1.000000, 

.883268, 

.969831, 

3 

3 

.553110, 

.950334, 

.944023, 

.933045, 

.935459, 

.333142, 

3 

3 

.232304, 

.932004, 

.933142, 

.935453, 

.833045, 

.944036, 

3 

3 

.350334, 

.359110, 

.939331, 

. 933233, 

1.000000/ 

_)L. 

3 

DATA  T5B2/ 

1.000000, 

.931390, 

. 9ES181 , 

.953873, 

.344036, 

3 

S 

.333322, 

.930453. 

. 92S223, 

.923481, 

.922134, 

.922134, 

3 

3 

.323431, 

.323223, 

.930453, 

.933322, 

. 94403S, 

.953873, 

3 

3 

. S3S131 » 

.931330, 

1.000000, 

1.000000, 

.879391, 

.963451, 

3 

S 

.943333, 

.939045, 

.930453, 

.923333, 

.319142, 

.916060, 

3 

3 

.914543, 

.914543, 

. 3 1  SOSO, 

.919142, 

.923839, 

.930453, 

3 

3 

.939045, 

.949933, 

.933451, 

.979991, 

1.000000, 

1.000000, 

3 

3 

.973937, 

. 331504, 

.947114, 

.935459, 

.926223, 

.919142, 

3 

3 

.914009, 

.910571, 

.909027, 

.909027, 

.910671, 

.914009, 

3 

3 

.919142, 

.923223, 

.935459, 

.947114, 

.961504, 

.978997, 

3 

3 

1.000000, 

1.000000, 

.973357, 

.930252, 

.945236, 

.933142, 

3 

3 

.923431, 

.913030, 

.910371, 

.307133, 

.905435, 

.905435, 

3 

5 

.307133, 

.910371, 

.91G0S0, 

.323431, 

.933142, 

.945296, 

3 

5 

.930252, 

.973357, 

1.000000, 

1.000000, 

.978044, 

. 959638, 

3 

3 

.344405, 

.932004, 

.922134, 

.914543, 

.909027, 

.905435, 

3 

3 

.302334, 

.903334, 

. 90o435, 

.303027, 

.914543, 

.922134, 

3 

r>r 

3 

.332004, 

.344405, 

. 353333, 

.973044. 

1.000000/ 

3~ 

DATA  T533/ 

1.000000, 

.373044, 

.953533, 

.944405, 

.932004, 

r> 

_j 

3 

.922134, 

.914543, 

.303027, 

. 303435, 

■  903634 , 

.903664, 

3 

3 

.305435, 

.903027, 

.914543, 

.222134, 

.332004, 

.944405, 

3 

3 

.352333, 

•373044, 

1.000000, 

1.000000, 

. 378357 , 

.960252, 

3 

3 

.9-45223, 

.333142, 

.923431, 

.913030, 

.910671, 

.907163, 

3 

3 

. 305433, 

. 30a435, 

.307133, 

.910371, 

. 9IS0S0, 

.923481, 

3 

3 

.333142, 

.345233, 

.230252, 

.973357, 

1.000000, 

1.000000, 

3 

3 

.3-3337, 

.331504, 

.547114, 

. 9354a9, 

.326223, 

.919142, 

3 

3 

.314003, 

.310371, 

.303027, 

.303027, 

.910371, 

.914003, 

3 

3 

.913142, 

.223223, 

.935453, 

.947114, 

.961504, 

.978337, 

3 

3 

1.000000, 

1.000000, 

. 37S331 , 

.933451, 

.943333, 

.939045, 

3 

3 

.330  453, 

.  c'-33333. 

.913142, 

.313030, 

.914543, 

.914543, 

3 

3 

.  3 1 3'’30 , 

.9-3142, 

.923339, 

.330453, 

.939045, 

.949933, 

3 

3 

.233451, 

. 37333I , 

1.000000, 

1,000000, 

.931390, 

. 9SS181 , 

3 

3 

.253373, 

.344023, 

.323322, 

.330453, 

.923223, 

.923481, 

3 

3 

.322-34, 

.222’  34, 

.223431, 

.223223, 

.930453, 

.936322, 

3^ 

3 

r'  4  4 ^  3 , 

.553373, 

.233131, 

.331330, 

1.000000/ 

3* 

DATA  “D-,/ 

1 . 000000, 

. 233233, 

.333331, 

.353110, 

.950634, 

3 

3 

,  Z  '*  r  ZZ  I) 

.523045, 

. 235453, 

.333142, 

.332004, 

.932004, 

_) 

3 

.  z  z  z :  ■  *  J » 

.5:3433, 

.333043, 

.344033, 

.950334, 

.959110, 

3 

-j 

OT'D'1  , 

.COO-DO, 

1. '’00000, 

1.000000, 

.  933743, 

.974609, 

■J 

3 

IZZZZJ In 

.353110, 

.332373, 

.343333, 

.347114, 

.345293, 

3 

,  0  --  ‘  “  '  -  J  7 

.544405, 

.34 -233 , 

.347114, 

.943333, 

•  953373, 

3 

3 

.zzz> )  ?* 

.553301 , 

.37-4303, 

.325745, 

1.000000, 

1.000000, 

3 

.ZZZZr  j  , 

.  52035  4, 

.3*4303. 

•  w  Zl-J  J  J  1  * 

.333131, 

. 933451 , 

j 

.530232, 

.  J  -1  J  -  -v  ~>  * 

•  253333* 

.1 1 3 

.330252, 

.931504, 

MHMlB 


$ 

.9S3451, 

.956131, 

.969331, 

.974609, 

.980334, 

.989020, 

5 

l.OOOOOO,  1 

.  000000, 

.993473, 

.539020, 

.985745, 

.983268, 

) 

s 

.931390, 

.979991. 

.973537, 

.973357, 

.973044, 

.978044, 

$ 

.978357, 

.973997, 

.979391, 

.931390, 

.983268, 

.985745, 

$ 

.939020, 

.993473. 

l.OOOOOO, 

l.OOOOOO, 

1.000000, 

1.000000, 

.1 

% 

i.  000000.  1 

.000000. 

1.000000, 

l.OOOOOO, 

l.OOOOOO, 

1.000000, 

s 

1.000000,  1 

.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

-5 

1.000000,  ! 

.000000, 

1.000000, 

1.000000. 

1.000000/ 

iC 

INTERPOLATE 

NONLINEAR 

SOLUTION 

BY  QUADRATICS 

3C 

3  CALL  QUADRDC X, Y, TABLE, GRID, CRIB, NGRIQ, NGRID, NGRDD. NGRDD, DERUSL) 
3C 

3  TRUE  =  DERUSLC6) 

3C 

3  RETURN 

3  END 

3  FUNCTION  R(  !<»  Y  ) 

3C 

3  REAL  DERUSL(G).  GRID(9).  TAB1C9.9),  TAB2C9.9), 


3 

$ 

TA33C9 

,91,  TAB4(9,9),  TAB5(9,9) 

3 

DATA  NGRID. 

NCRDD.  GRID  /9,  9, 

0.,  0.125, 

0.250, 

3 

3C 

3C 

$0 

.375,  0.500,  0.625, 

0.750,  0. 

375,  1.00/ 

APPROXIMATE 

SOLUTION 

QF  NONLINEAR  PROBLEM  FOR  NONLINEAR 

3C 

3C 

3 

CQLLQCAT IUN 

DATA  TA31/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

.975227, 

3 

$ 

.961931, 

.955174, 

.953091, 

.955175, 

.961931, 

.975227, 

3 

S 

1.000000, 

1.000000, 

.961931, 

.939237, 

.927238, 

.923486, 

3 

$ 

.927237, 

.939237, 

.961931, 

1.000000, 

1.000000, 

.955175, 

3 

S 

.927238, 

.912095, 

.907312, 

.912095, 

.927237, 

.955175, 

3 

s 

1.000000, 

1.000000, 

.953091, 

.923487, 

.907313, 

.902186, 

3 

$ 

.907312, 

.923437, 

.353031, 

1.000000, 

1.000000, 

,955176. 

3 

3 

.927233, 

.912095, 

.907312, 

.912035, 

.927238, 

.955175, 

3 

$ 

1.000000, 

l.OOOOOO, 

.361332, 

.939233, 

.927238, 

,923486. 

3 

S 

.927238, 

.939237, 

.961332, 

1.000000, 

1.000000, 

.975228, 

3 

3 

. 9S1932, 

.955175, 

.953031, 

.955175, 

.961931, 

.975227, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

3 

1.000000, 

1.000000, 

1.00000 0, 

1.000000/ 

DATA  TAB2/ 

1.000000, 

L.OOOOOO, 

1.000000, 

l.OOOOOO, 

l.OOOOOO, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

.974112, 

3 

3 

.959940, 

.952537, 

.950359, 

. 952638, 

. 959940, 

.974113, 

3 

3 

1 . 000000, 

1.000000, 

.959339, 

. 9355S1 , 

.922653, 

.918581, 

3 

3 

.922669, 

.335562, 

.9599  41, 

1.000000, 

1.000000, 

.952637, 

3 

3 

.922663, 

.906244, 

.901023, 

.906245, 

.922568. 

.952637, 

3 

3 

1.000000, 

1.000000, 

.950368, 

.318530, 

.901028, 

.895433, 

3 

$ 

.901023, 

.918530, 

.350363, 

1.000000, 

1.000000, 

.952637, 

3 

3 

.922663, 

.906245, 

.301023, 

.903245, 

.922668, 

.952637, 

3 

3 

1.000000, 

1.000000, 

. 353940, 

.935552, 

.922559, 

.918581, 

3 

3 

.322663, 

.935661, 

.959940, 

i. 000000. 

1.000000, 

.974112, 

3 

$ 

. 959940 , 

.352637, 

.  950.  ,59, 

.952637, 

.959940, 

.974112, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

DATA  TAB3/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3 

1 . OOOOOO, 

1.000000, 

1.000000. 

1.000000, 

1.000000, 

.976286, 

3 

3 

.963316, 

.957569, 

. 955S5S, 

.357570, 

. S63316, 

.976286, 

3 

3 

1 . 000000, 

1.000000, 

.933316, 

.942503, 

.931532, 

.928093, 

3 

3 

.931533, 

.342609- 

.963317, 

1.000000, 

1.000000, 

.957569, 

3 

3 

.931532, 

.917577. 

.913196, 

.917578, 

.931534, 

.957570, 

3 

3 

1.000000, 

1.000000, 

.955556, 

.923093, 

.913196, 

.908502, 

3 

3 

.913197, 

.923094, 

.955657, 

1.000000, 

1.000000, 

.357569, 

3 

3 

.931532, 

.917577, 

.913196, 

.917573, 

.931534, 

.957570, 

3 

3 

1 . 000000, 

l.OOOOOO, 

.953315. 

.942507, 

.931533, 

.928093, 

3 

3 

.931533, 

.942509, 

.353317, 

1.000000, 

1.000000, 

,976286, 

3 

$ 

.953316, 

. 957559, 

. 955SdG, 

.957559, 

.963317, 

.976287, 

3 

3 

1.000000, 

l.OOOOOO, 

1.000000. 

1.000000, 

1.000000, 

1.000000, 

3 

3C 

3 

$ 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

DATA  TAB4/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

i.000000. 

3 

3 

l.OOOOOO, 

l.OOOOOO, 

1.000000, 

1.000000, 

1.000000, 

.975353, 

3 

3 

.952161, 

.955471, 

.353410, 

.955471 , 

.962161, 

.975354, 

3 

3 

1.000000, 

1 .0000  ' 

. 352161, 

. 933553, 

. S27783, 

.924075, 

119 


3 

3 

.327733, 

.923353, 

.932132, 

1.000000, 

1.000000, 

.955471 

3 

3 

.327783, 

.912303, 

.903077, 

.912304, 

.927734, 

.955473 

3 

1.000000,- 

1.000000, 

.953410, 

.324075, 

.903073, 

.903013 

3 

3 

.303073, 

.924073, 

.953412, 

1.000000, 

1.000000, 

.955471 

3 

3 

.327733, 

.312304, 

.903073, 

.912304, 

.927734, 

.355472 

3 

3 

1.000000, 

1.000000, 

.S33' S' , 

.333359, 

.327784, 

.924073 

3 

5 

.327734, 

.933353, 

.932132, 

1.000000, 

1.000000, 

.975353 

3 

5 

.332132, 

. S55472, 

.353411, 

. S55472, 

.932131, 

.975353 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000. 

3 

3C 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

DATA  TABS/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

.975382. 

3 

3 

.SS231S, 

.955545, 

.953491, 

.955543, 

.332217. 

.975383 

3 

3 

1.000000, 

1.000000, 

.932217, 

.9397G4, 

.927924, 

.924229 

3 

5 

.327325, 

.933734, 

.932217, 

1.000000, 

1.000000, 

.955545 

3 

3 

.327325, 

.312932, 

.303233, 

.912332, 

.927924, 

.955545: 

3 

5 

1.000000, 

1.000000, 

.353491, 

.924229, 

.303233, 

.90322B 

3 

5 

.308232, 

.924223, 

.353490, 

1.000000, 

1.000000, 

.  955546- 

3 

5 

.327325, 

.912933, 

.908233, 

.912931, 

.927923, 

.955544. 

3 

3 

1.000000, 

1.000000, 

.332217, 

.933735, 

.927925, 

.924228: 

3 

5 

.327323, 

.939733, 

.932213, 

1.000000, 

1.000000, 

.975382, 

3 

5 

.332217, 

. S5554d, 

.953490, 

.355544, 

.932213, 

.975382, 

3 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

3C 

3C  INTERPOLATE  NONLINEAR  SOLUTION  BY  QUADRATICS 
3C 


3  CALL  OUADRD  < X .  Y ,  T  AB&D .  GR I D .  GR  ID .  NCR  I D ,  NOR  ID ,  NGRDD ,  NGRDD ,  DERUSL  ) 
3C 

3  G  =  DZRUSL(S) 

3C 

3  R  =  -1.425*G**(&C-l)*EXP(&A*&B*a.-G)/a.+&B*(l.-G»  ) 

3C 

3  RETURN 

3  END 


3C 

3  PEAL  DZR'JSL(S1.  GRIDC20).  TABL£(20.20) , 

3  S  T13H100),  T1B2(1001,  T133C100).  T1B4C100), 

3  5  T231C100).  T232C100),  T233C100),  7234(1001. 

3  3  7331(100),  7332(100).  7333(100).  7334(100). 

3  3  T43K100).  T432C100).  T433C100).  7434(100) 

3  EOUI'JALENCZ  ( T ABLE ( 1 »  11  ,  TiDBKD). 

3  3  (TA3LEC1,  G)  .  TiD32(l)), 


123 


3 

5 

(TABLE! 1, 

11)  ,  T4DB3C 1 ) ) , 

3 

$ 

(TABLEC1, 

1G)  ,  T&D34C 1 ) ) 

3 

DATA  NGRID 

,  MGRDD.  GRID  /20,  20,  0.0000000,  0.052G316, 

3 

Si 

0. 1052S32, 

0.1578947, 

0.21052S3,  0 . 2S31579,  0.3157895, 

3 

51 

D . 3S3421 1 » 

0.4210523, 

0 . 473G342.  0.5263158,  0.5739474, 

3 

5: 

0.6315739, 

0.6342105. 

0.7358421 

.,  0.7894737,  0.8421053, 

3 

or 

51 

9.3947368, 

0 . 9473E34, 

1.0000000/ 

•—>  L 

3C 

APPROXIMATE  SOLUTIOM 

OF  LINEARIZED  PROBLEM  USING 

3C 

HODIE-ACF 

(HETH0D=4, 

IQRDER=41 , 

20  X  20 

GRID) 

•J  L 

3 

DATA  TIBI/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000. 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

S 

1.000000. 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

5 

1.000000. 

1.000000, 

1.000000, 

1.000000, 

1.004808, 

1.008128, 

3 

S 

1.010595, 

1.012473, 

1.013915, 

1.014992, 

1.015751, 

1.016257, 

3 

5 

1.01G500, 

1.01G500, 

1 . 01S257, 

1.015761, 

1.014992, 

1.013915, 

3 

5 

1,012473. 

1.010595, 

1.008123, 

1.004803, 

1.000000, 

1.000000, 

3 

5 

1.003123, 

1.014249, 

1.018947, 

1.022581, 

1.025375, 

1.027479, 

3 

$ 

1.023935, 

1.029957, 

1.030433, 

1.030433, 

1.029957, 

1.028985, 

3 

5 

1.027479, 

1.025375, 

1.022581, 

1.018947, 

1.014249, 

1.008128, 

3 

5 

1.000000, 

1.000000, 

1.010595, 

1.018947, 

1.025531, 

1.030703, 

3 

5 

1.034718, 

1.037754, 

1.033935, 

1.041345, 

1.042038, 

1.042038, 

3 

5 

1.04134S, 

1.039935, 

1.037754, 

1.034718, 

1.030703, 

1.025531, 

3 

5 

1.018947, 

1.010595, 

1.000000, 

1.000000, 

1.012478, 

1.022581, 

3 

S 

1.030703, 

1.037159, 

1.042231, 

1.04S030, 

1.048355, 

1.050655, 

3 

5 

1.051540, 

1 . 051540, 

1.050G55, 

1.043855, 

1.046080, 

1.042231, 

3 

*?r 

S 

1.0371G9, 

1.030703, 

1.022531, 

1.012473, 

1.000000/ 

3 

DATA  T1B2/ 

1.000000, 

1.013915, 

1.025376, 

1.034718, 

1.042231, 

3 

S 

1.043157, 

1.052385, 

1 . 055931 , 

1.058090, 

1.059138, 

1.059138, 

3 

5 

1.053090, 

1.055331, 

1.052585, 

1.048157, 

1.042231, 

1.034718, 
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S 
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1.042038, 
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1.004344, 

1.004331, 

1.004331, 

3 

3  1.004844, 

1 . 004S3S, 

1.004331, 

1.004012, 

1 . 00351a, 

1.002835, 

3 

3  1.002104, 

1.001151, 

1.000000, 

1.000000, 

1.001133, 

1.002074, 

3 

3  1.002341, 

1.003453, 

1.003345, 

1.004313, 

1 . 00433d, 

1.004753, 

T> 

J 

3  1.00  1344, 

1 . 004244 j 

1.004753, 

1.004534, 

1.00431G, 

1.003345, 

3 

3  i.0.C453> 

1.002341, 

i.  502074, 

1.001123, 

1.000000, 

1.000000, 

3 

3  1 .  }  \  1 0  4  * 

$  I.'jC-'KIOi 

i . 002013; 
i  •  00-1525  > 

1.  002751, 
1.004233, 

i. 003343, 
i » 002335* 

1.003303, 

1 . 004333, 

1 . 0041G4, 
1.004419, 

O 

3  1.004131, 

1.0053)3, 

1.003343, 

1.002751, 

1.002012, 

1.001104, 

3 

3  1.300000, 

1.000000, 

1.001054, 

1.501315, 

1.002310. 

1.0031G5, 

T) 

5  1 »  j  i ^  j33  > 

1.003327, 

1.004.134, 

1.004313, 

1.004331, 

1.004331, 

3 

•  7  1  ;‘l  4  2  1  C  j 

1.004134, 

1.00372 7, 

1.002533, 

1.003135, 

1.002310, 

3 

3  .1  .''01015, 

1.00105  i, 

1.500000, 

1.000000, 

1.0C0334, 

1.001777, 

2 

3  i. '02412, 

1 . 002314, 

1.  00335  1, 

1,502333, 

1.003303, 

1.003345, 

j  ■  .  ‘,':4  j  J  2, 

i ,  n  j  :o  •  2 ; 

1.0075:5, 

1  • '  03353, 

1.003523, 

1.003304, 

3 

3  1.  ''03314, 

1.502  112, 

1.305- 77, 

'  ,000231; 

1.000000/ 

"2.5V 

1  .  )  00900, 

1  f |  n  r?  O  O 

1.001252, 

1.002143, 

1.002530, 

3  .."'O-O'  1. 

1 . 0031 35, 

1.005313, 

1,0-2 173, 

1.003515, 

1.003515, 

..">  1 .  0  034  53. 

1 •  J .22  ^ - ? 

0  00  2  .35; 

1,002314, 

1.902530, 

1.00214S, 

*7i 

3  1.00.032, 

1.000333, 

i . 1 00000, 

1.000000, 

1,000731, 

1.00134G, 

\ ,  y '  j  ■-  .7  7  ■> 

1.003142, 

1.002112, 

1,007.3.1  0, 

i  ,  003751 > 

1.002841, 

V  .1  .  J  ’  7  2  J  5  1 

-  .  007 133, 

1.1  ,2341, 

1 , 002T ^ 1 ; 

1.002310, 

1.002412, 

"5 

J  l.'38i;3, 

1,001733, 

j  'j  0 .1  .  J  ;  10  ; 

1 ,  50 O'7 3.1, 

1.00 0900, 

1.000900, 

1 .  v  ;  53  0  > 

i ,  n  n  <  *'*1  ~j  ^ : 

■. »  ■  2 1. 3  !  3 .» 

1. 501272, 

1 .  0  0 i r  77 , 

1.001315, 

3  :.3':’01'>, 

1 ,0050~J- 

i  .  !  .'  2  '.  ' :  3  ; 

1.0:2:05, 

1.002074, 

1 . 002012, 

3  1,0V  305, 

1.001777, 

l.  0  0 '30  2, 

1.001243, 

1.001022, 

1.000530, 

•5  «  .  ■;  -|  '|  -|  , 

i .  no"  0“'  '; 

J  .  4  7  ^  . 

1 , 505  530, 

1 . 999751, 

1.000833, 

•.  1  ,  0  0  03  1, 

I  .  "  'i  •  n  :  1 , 

:  •  *)0:  :  23; 

1 ,  05' 15 1 , 

1.001151, 

1  .  0  0  •  1  33 , 

l ,  o :  i  v  1 : , 

1  '  r'  J  ’  ' 

•  '•  ~l  *  ^  , 

1.955733, 

1 .0C07G1, 

3 

:  •  '  '.“I1. 

i  ,'\Y  1  7 » 

1  5  5  '■>  )  0  ; 

.  01 0  '0", 

1 ,0  or  000, 

.5  *.  ,  '■  4  0  0 » 

1  A  '!  '  V  •  T 

•  ;  •  > , 

50, 

1  .0  59  •'•J 

1 . 0 -p non. 

'•> 

*  ■ 1  "i "  i  ”  i 

i  .  v.  -«n  ■  ■ , 

'*  .  ‘  '  '1  , 

1 .  vn 5 5  0 

!  0  •  7;  P  0  s':  0  * 

2 

•  ,  4  j  • > 

: .  5  j .  1  - 

7  ” 

..  . _ _ 

i  , 

;  '1  *•  .  ■ 

•  n. 

r — 


n  rn  ro  n  ro  ro  ro  cn  n  n  n  ri  ro  ro  ro  n  ro  n  n  ro  ro  ro  n  n  ro  n  n  n  n  n  n  m  n  ro  n  ro  ro  n  cn  n  n  ro  n  ro  ro  ro  n  ro  ro  ri  cn  n  rj  n  r-)  ro  n  r")  ri  ri  r-;  ci  f")  r 


.1.  .000000, 

1.000000, 

1.000000, 

1.003990, 

1.000000, 

1.000000, 

i5 

1.990090, 

1.000000, 

1.000000, 

1.000090, 

1.000000, 

1.000000, 

-5 

I . 000900, 

1.000000, 

1.000000, 

1.000000, 

1.004577, 

1.007330, 

L.» 

1 . 003330, 

1.011553, 

1.012343, 

1.013905, 

1.014534, 

1.015020, 

'-3 

1.015233, 

1.015233, 

1.013020, 

1.014534, 

1.013395, 

1.012243, 

!.) 

1.911353, 

1.003350, 

1.007330, 

1.00  1577, 

1.090000, 

1.000000, 

$ 

1.007330, 

1.013377, 

1.017337, 

1.020373, 

1.023435, 

1.025253, 

c> 

i • 023331 * 

1.027534, 

1.027351, 

1.027351, 

1.027534, 

1.023231, 

3 

1.025353, 

1.023435, 

1.020979, 

1.017337, 

1.013377, 

1.007320, 

3 

1.000000, 

1.000000, 

1.009350, 

1.017337, 

1.023703, 

’ .C23235, 

a 

1.031973, 

1.034S71, 

1.033534, 

1.037331, 

1.033437, 

1.023437, 

3 

1.037331, 

1.033594, 

1.034371, 

1.031973, 

1.023335, 

1.023703, 

5 

1.017537, 

1.003350, 

1.000090, 

1.000000, 

1.011353, 

1.020379, 

3 

1.023335, 

1.03421S, 

1.023733, 

1.042143, 

1.044532, 

1.04B1E3, 

3 

1.043942, 

1.043942, 

1.04S1G3, 

1.044532, 

1.042143, 

1.033738, 

5 

1.03421S, 

1.023335, 

1.020979, 

1.011353, 

1.000000/ 

DATA  1432/ 

1.000000, 

1.012943, 

1.023435, 

1.031373, 

1.033733, 

3 

1.044022, 

1.043029, 

1.050311, 

1.052774, 

1.053333, 

1.053333, 

3 

1.052774, 

1.050911, 

1.043023, 

1.044022, 

1.033733, 

1.031378, 

0 

1.023435, 

1.012343, 

1.000000, 

1.000000, 

1.013305, 

1.025353, 

3 

1.034S71, 

1.042143, 

1.043029, 

1.052509, 

1.055740, 

1.057835, 

3 

1 . 05S334? 

1.053334, 

1 . 057335, 

1 .053740, 

1.052503, 

1.048029, 

3 

1.042149, 

1.034371, 

1 . 023353, 

1.013305, 

1.000000, 

1.000000, 

3 

1.014534, 

1.023331, 

1.033534, 

1.044532, 

1.050311, 

1.055740, 

3 

1.053233, 

1.051500, 

1.0S231S, 

1.032S1S, 

1.0S1500, 

1.053233, 

5 

1.055740, 

1.050911, 

1.044592, 

1.033534, 

1.023331, 

1.014584, 

5 

1.000000, 

1.000000, 

1.015020, 

1.027534, 

1.037331, 

1.04S1B9, 

3 

1.052774, 

1 . 0a7335, 

1.031500, 

1.033332, 

1 .033055, 

1 . 035055, 

5 

1.033332, 

1.031500, 

1.057335, 

1.052774, 

1.043133, 

1.037831, 

3 

1.027534, 

1.015020, 

1.000000, 

1.000000, 

1.015233, 

1.027951, 

3 

1.033437, 

1.043942, 

1.033333, 

1  • 053334  9 

1.032313, 

1.035055, 

3 

1.03S2S3, 

1.033253, 

1 . 035053, 

1.0S2S1S, 

1  •  053334* 

1.053383, 

3 

1.043942, 

1.033437, 

1.027351, 

1.015233, 

1.000000/ 

DATA  T433/ 

1.000000, 

1.015233, 

1.027351, 

1.033437, 

1.043342, 

5 

1 • 033333* 

1.053334, 

1.0S231S, 

1.035055, 

1 . 033353* 

1.033253, 

5 

1 . 035055, 

1.0S2S1G, 

1.053334, 

1 . 053S33, 

1.043342, 

1.03B437, 

3 

1.027951, 

1.015233, 

1.000000, 

1.000000, 

1.015020, 

1.027534, 

3 

1.037331, 

1.043139, 

1.052774, 

1.057335, 

1.031500, 

1.0G38S2, 

3 

1 . 0S5055, 

1 . 0G505o, 

1.0S3332, 

1.031500, 

1 . 057335, 

1.052774, 

5 

1.04S1G9, 

1.037331, 

1.027534, 

1.015020, 

1.000000, 

1.000000, 

5 

1.014534, 

1.023331, 

1.033594, 

1.044532, 

1.050911, 

1.055740, 

5 

1.053233, 

1.031500, 

1.032313, 

1.032313, 

1.0S1500, 

1.053233, 

3 

1.055740, 

1.050911, 

1.044532, 

1.033534, 

1.023331, 

1.014534, 

3 

1.000000, 

1.000000, 

1.013905, 

1.025353, 

1.034371, 

1.042143, 

3 

1.043023, 

1.052509, 

1.035740, 

1.057335, 

1  •  053334* 

1.05E8S4, 

3 

1 . 057335, 

1.055740, 

1.052509, 

1.043023, 

1.042143, 

1.034371, 

3 

1.025353, 

1.013905, 

1.000000, 

1.030000, 

1.012343, 

1.0234B5, 

5 

1.031973, 

1.033733, 

1.044022, 

1.043023, 

1.050911, 

1.052774, 

3 

1.053333, 

1  •  053333* 

1.032774, 

1.059311, 

1.043029, 

1.044022, 

5 

1,033733, 

1.031973, 

1.023435, 

1.012343, 

1.000000/ 

DATA  1434/ 

1.000000, 

1.011353, 

1.020379, 

1.023335, 

1.034213, 

3 

1.033733, 

1.042149, 

1.044522, 

1  •  043133* 

1.043342, 

1.043342, 

3 

1.043139, 

1.044532, 

1.042149, 

1.933733, 

1.034213, 

1.028385, 

3 

1.020379, 

1.011353, 

1.000030, 

1.099990, 

1 .093350, 

1.017387, 

3 

1.023703, 

1.023335, 

1.031373, 

1.034371, 

1.033534, 

1.037831, 

3 

1,033437, 

1.033437, 

1.037331, 

1.033534, 

1.034371, 

1.031378, 

3 

1.023335, 

1 . 023703, 

1.917337, 

1 .092239, 

1.009000, 

1.000000, 

3 

1.007330, 

1.013377, 

1.917337, 

1 .921373, 

1.023435, 

1 . 025353, 

3 

1.0-23331, 

1.027534, 

1.027351, 

1 . 027351 , 

1.027534, 

1.02BG31, 

3 

1 . 02j3'53, 

1.023435, 

1. '120373, 

1.91“337, 

1.013377, 

1 .007390, 

1.) 

1.000000, 

1.090900, 

1.934577, 

1.99^333, 

1.003350, 

1.011358, 

3 

1.012343, 

1.013305, 

1.014534, 

1.915929, 

1.013233, 

1.015233, 

1 . 0.15090, 

1.014534, 

1.012335, 

1.912343. 

1.011353, 

1.009350, 

3 

1.007530, 

1.994377, 

1.900909, 

1 . 09°0  93, 

1.009000. 

1.000000, 

3 

I . noon  in. 

1 . 000009, 

1 . 033090* 

1 ,  n  n  n  n  o , 

i. 000000. 

1. 000000. 

!  ) 

i  j) moon, 

1 . nnnnon, 

i  .  vi  i 

i 

i ,  o ;  n  n  n  o  • 

1,000000. 

•  ,  o.vr*»  v)  . 

1  ,'Vi  10  vi. 

t  # n ; n , 

1 . 0  /  ?  0  0  0  • 

1,0:0:00  • 

'i  i  rzPrO^.rr 

:r;  cjadta 

T  ~.Z3> 

OiVj.  ni.'i3?Di i 

D.N33T  l.V" 

1  .J-MDTDD.TIOTDD.DZRUSL) 

3C 

3  RETURN 

3  El  ID 

3  FUNCTION  RCX.Y) 

3C 

3”  RE,}'-  DERUSL(S),  GRIDC9)  ,  TAB1(9,9).  TAB2(3,9), 

3  3  7033(9,9),  TAB4(9,9) 

3  BOTH  NGRID,  HGRDD,  GRID  /9.  9,  0.,  0.125,  0.250, 

3  30.375,  0.500,  0.S25,  0.750,  0.375,  1.00/ 

3C 

3C  APPROXIMATE  SOLUTION  OF  NONLINEAR  PROBLEM  FOR  NONLINEAR 
3C  COLLOCATION 

3C 


3 

DATA  TABl/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

"1 

O 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.0183S0, 

3 

3 

1.023330, 

1.033520, 

1.035120, 

1.033520, 

1.023380, 

1.018330, 

3 

5 

1.000000, 

1.000000, 

1.023380, 

1.045520, 

1.054370, 

1.057540, 

3 

r- 

1.054S70, 

1.043520, 

1.023380, 

1.000000, 

1.000000, 

1.033520, 

3 

5 

1.054S70, 

1 . 0SS220, 

1.0S9380, 

1.033220, 

1.054370, 

1.033520, 

3 

0 

1.000000, 

1.000000, 

1.035120, 

1.057540, 

1.039380, 

1.073810, 

3 

5 

1.0SS330, 

1.057540, 

1.035120, 

1.000000, 

1.000000, 

1.033520, 

3 

3 

1.054370, 

1.033220, 

1.033380, 

1.033220, 

1.054370, 

1.033520, 

3 

3 

1.000000, 

1.000000, 

1.023330, 

1.045320, 

1.054370, 

1.057540, 

3 

5 

1.054S70, 

1.045520, 

1.023330, 

1.000000, 

1.000000, 

1.018230, 

3 

3 

1.023330, 

1.033520. 

1.035120, 

1.033520, 

1.023330, 

1.018360, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

op 

S 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

_> 

DATA  TAB2/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.522810, 

0 

Jj 

5 

1.511040, 

1.510430, 

1.510470, 

1.510490, 

1.511040, 

1.522310, 

3 

3 

1.000000, 

1.000000. 

1.511040, 

1.501050, 

1.500550, 

1.500530, 

3 

3 

1.500550, 

1.501050, 

1.511040, 

1.000000, 

1.000000. 

1.510490, 

3 

3 

1 . 500550, 

1.500030, 

1.500030, 

1.500050, 

1.500550, 

1.510490, 

3 

5 

1.000000, 

1.000000, 

1.510470, 

1.500530. 

1.500030, 

1.500010, 

3 

5 

1.500030, 

1.500530, 

1.510470, 

1.000000, 

1.000000. 

1.510490, 

3 

5 

1.500550, 

1.500030, 

1.500030, 

1.500050, 

1.500550, 

1.510490, 

3 

3 

1.000000, 

1.000000, 

1.511040, 

1.501050, 

1.500550, 

1.500530, 

3 

5 

1 . SOOSaO, 

1 .501050, 

1.511040, 

1.000000, 

1.000000, 

1.522810, 

3 

3 

1.511040, 

1.510490, 

1.510470, 

1.510490, 

1.511040, 

1.522810, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

r?r 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

oL 

3 

DATA  TAB3/ 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.001310, 

3 

3 

1.001930, 

1.002320, 

1.002430, 

1.002320, 

1.001990, 

1.001310, 

3 

3 

1.000000, 

1.000000, 

1.001390, 

1.003140, 

1.003730, 

1.003920, 

3 

3 

1.003730, 

1.003140, 

1.001990, 

1.000000, 

1.000000. 

1.002320, 

3 

3 

1.003730, 

1.004430, 

1.004720, 

1.004430, 

1.003730, 

1.002330, 

3 

3 

1.000000, 

1.000000, 

1.002430, 

1.003920, 

1.004720, 

1.004970, 

3 

3 

1.004720, 

1.003920, 

1.002430, 

1.000000, 

1.000000, 

1.002320, 

3 

3 

1.003730, 

1.004430, 

1.004720, 

1.004430, 

1.003730, 

1.002320, 

3 

3 

1.000000, 

1.000000, 

1.001390, 

1.003140, 

1.003730, 

1.003920, 

3 

3 

1.003730, 

1.003140, 

1.001330, 

1.000000, 

1.000000, 

1.001310, 

3 

3 

1.001930, 

1.002320, 

1.002430, 

1.002320, 

1.001930, 

1.001310, 

3 

3 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

1.000000, 

3 

5 

1.000000, 

1.000000, 

1.000000, 

1.000000/ 

3C 

3  DATA  TA34/  1. 000000,  1.000000,  1.000000,  1.000000,  1.000000, 

3  5  1.000000,  1.000000,  1.000000,  1.000000,  1.000000,  1.017160, 

3  3  1.02S240,  1.030300,  1.032200,  1.030300,  1.023240,  1.017160, 

3  3  1.000000,  1.000000,  1.023240,  1.041330,  1.0437S0,  1.052270, 

3  3  1.0497G0,  1.041330,  1.023240,  1,000000,  1.000000,  1.030800, 

3  3  1.049730,  1.053940,  1.033140,  1.053340,  1.049730,  1.030800, 

3  5  1.000000,  1.000003,  1.032200,  1.032230,  1.0S3140,  1.0ES570, 

3  3  1.033140,  1.032270,  1.032200,  1.000000,  1.000000,  1.030800, 

3  0  1.049730,  1.053940,  1. 0S3140.  1.053940,  1.049730,  1.030800, 

3  3  1.000000,  1.000000,  1.023240,  1.041330,  1.049730,  1.052280, 

3  3  1.049730,  1.041630,  1.023240,  1.000000,  1.000000,  1.017160, 

3  3  1.02S240,  1.030300,  1.032200,  1.030300,  1.023240,  1.017160, 

3  3  1.000000,  1.000000,  1.000000,  1.000000.  1.000000,  1.000000, 

3  3  1.000000,  1.000000,  1.000000,  1.000000/ 

3G 

3C  INTERPOLATE  NONLINEAR  SOLUTION  BY  QUADRATICS 
3C 

3*"  CALL  Q'JADRDCX,  Y,  TA33.D,  GRID,  GRID,  NGRID,  MGRID,  NGRDD,  NGRDD,  DERUSL) 


13d 


3C 

3  f?  =  DERUSL(S) 

3C 

3  RETURN 

3  END 

3  FUNCTION  W(X.Y) 

3C 

3  T  =  R(X,Y) 

3  W  =  -(1.425**2)*((1.+&B-T)'«.B)**(&A-1)*EXP(&C*(T-1.)'T) 

3C 

3  RETURN 

3  END 

3  FUNCTION  F(X.Y) 

3C 

3  T  =  RCXtY) 

3  F  =  -( 1 . 425**2 )*( ( 1 .+&B-T)'&B)**(&A-1 )*EXP(&C*(T-1 . )'T)*( 1.+&B) 
3C 

3  RETURN 

3  END 


*EOR 

***»»*»**»»** 
»  MACRO  50  » 


’  EOR 

*■»**»## 

*  MACRO  51  * 

»*-»******•**»# 

*  2000200000222 

1  TWO  DIMENSIONS 

1  UXX$  +  C(X)UYY$  +  D(X)UX$  =  -10. 

2  MIXED  $  HOMOGENEOUS 

2  X=0.  .  UX  =  0. 

2  X=1 .  .  U  =  0. 

2  Y=0 .  ,  UY  =  0. 

2  Y=1 .  .  MIXED  =  (A(X))UY  +  (B(X))U  =  0. 

3  FUNCTION  TRUECX.Y) 

3C 

3C  ******•*******#***#*«»«***«*****#«##*###*##****##***#* 


3C  *  * 

3C  *  MACRO  51  PARAMETERS  * 

3C  *  * 

3C  it***,,******#****************************************** 

3C  *  * 

3C  *  A  I  B  * 

3C  *  - 1 -  * 

3C  *  .3  11  * 

3C  «  I  * 

3C  *  .5  12  * 

3C  *  I  * 

3C  *  .6  I  3  * 

3C  *  I  * 

3C  *  .7  I  4  * 

3C  *  * 

3C  t*:-S5»5S»»-59e*»*»«»**»#******««**»*»*«**»*M*»*M»M#» 

3C 


3  REAL  DERUSL(G),  GRID(20).  TABLEC20.20), 

3  S  TIBI C 100) »  T1B2C100),  T1B3(100>.  T1B4C100), 

3  £  T2BK100),  TSBS(IOO),  T2B3(100>,  T2B4(100), 

3  S  T3BK100),  T3B2U00),  T333U00),  T334C100), 

3  S  T431C100).  T4B2(  100 ) »  T4B3(100),  T4B4C100) 

3  EOUIUALENCE  (TABLE!  1.  1)  .  T&B3K1)), 

3  5  (TABLE(1,  6)  .  T&BB2C 1 ) ) . 

3  S  (TABLE! 1,11)  ,  T&BB3C 1 ) )» 

3  S  (TABLE! 1.16)  ,  T&BB4C 1) ) 

3  DATA  NCRID*  NGRDD'20,  20' 

3  DATA  GPID'O. 0000000,  0.052S31G.  0.1052632,  0.1578947, 

3  SO. 2105263,  0.2831579,  0.3157395,  0.3S34211,  0.4210526, 

3  SO. 4736342,  0.52G3153,  0.5789474,  0.6315739,  0.6342105, 

3  $0.7368421,  0.7394737,  0.3421053,  0.3947363,  0.9473684, 

3  SI. 0000000' 

3C 

3C  APPROXIMATE  SOLUTION  OF  PROBLEM  USING 
3C  P3-C1  COLLOCATION  (3  X  3  GRID) 

3C 
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.111533, 

.000000,  1.313035, 

1.304337, 

1.780323, 

3 

1.741337, 

1.333091, 

1.910333,  1.512334, 

1.373433, 

1.183577, 

r> 

sJ 

3 

.930353, 

.391907, 

.450722,  .412333, 

a  333733 » 

.32G5S8, 

-J 

0 

.2.2433, 

.231925, 

.170024,  .034141, 

.000000, 

1*813 !G0» 

3 

1.303513, 

1.730751, 

1.742134,  1.337305, 

1.912441, 

1.519513, 

3 

3 

1  a  3  3  3  ?  j  7*  * 

1.133349, 

.377400,  .320353, 

.324343, 

•  C.SSS46  * 

r* 

«j 

3 

.251313, 

.223507, 

.133371,  .137254, 

.  122352, 

.070127, 

3 

3 

.000000, 

1.313233, 

1.305233,  1.730223, 

1.742573, 

1.GSS1GD, 

n 

3 

1.314310, 

1.522403, 

1.333323,  1.213337, 

.330704, 

.312528. 

T> 

.  1.1.3330, 

.  1  rzl  43H  2  * 

.123313,  .113233, 

.104335, 

.030943, 

•-* 

3 

.035343, 

.011773, 

.000000,  1.313440, 

1 « 3343a4* 

1.780315, 

3 

'.) 

!  .742001, 

1.937703, 

1.313434,  1.520373, 

1.400121, 

1.2S57G3, 

3 

3 

.331733, 

-.0527.:  7, 

-.151503,  .012233, 

-.014323. 

-.  0CS4G3, 

3 

3 

.001135, 

-.0020 

-.000131,  .000030, 

.000000/ 

T 

337.1  733 1  ' 

l  a 

1.733-25.  1.743071. 

1.713304. 

1.9-8909, 

u 

3 

1.553775, 

A.  57373  1, 

:.3.r3!!,  1.45220  1, 

1.3  3  '  -13  • 

i  •  £3  0  1  *-r  0  * 

1 

1 .3  i  •"  ; 

i . ; 

.293533,  .232143. 

. 7202 ’ 0. 

.594133, 

3 

:r» 

,  r,  ’ '  ^  i '  j , 

.  i :  '“o, 

.'iVfOO-  1 . 1  3223  • 

1 . 73":?;-;. 

1.748319. 

') 

**» 

1.71:'  •.  ,2, 

i.'-ov::  1* 

1.52300 9 ,  1. 5-3:2". 

1 . 3 ■ 77 ' 7 . 

i . 

3 

3 

1 .  :  2  •  5, 

1 « 7  3  .j  '  > » 

i.-n. r33,  l.i:23:3. 

.777-M7  • 

•  33* 

■  •> 

,l1’l  VI , 

;  '7  -  ,  ; 

,  ,  ?  vi  •  . 

?  '  T  '  '  '  , 

,  —  —  ^ 

;; 

1  !  ;• : n. 

1  .  .'■!  >  j 7  ’ . 

1 1 . 1  ; ^3,  1 ,  y  333  ; , 

1 .77 . 7 .7. 

l .  ;V ",'7- 3*3 • 

i 
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3  5  1 .512723*  1.449031,  1.374/31.  1.292213,  1.200547,  1.09858B, 
3  5  .934637.  .557921,  .717150,  .551433,  .390432,  .203402, 
3  S  .000000,  1.773233,  1.7G7143,  1.747337,  1.718099,  1.678521, 
3  5  1.G30010,  1.574973,  1.512307,  1.443301,  1.3S3353,  1.235571, 
3  5  1.193311,  1.091333,  .973334,  .352335,  .712594,  .558024, 
3  5  .333103,  .202222,  .000000,  1.773231,  1.757370,  1.747912, 
3  5  1 .717533,  1.G7733S,  1.527517,  1.571193,  1.507234,  1.436458, 
3  5  1.3S0433,  1.275110,  1.133734,  1.032343,  .969333,  .844534, 
3  5  .705117,  .553056,  .384793,  .200588,  .000000/ 

DATA  T3B2/  1.773223,  1.7SS75G,  1.747495,  1.716588,  1.675129, 
5  1.524252,  1.5S54S4,  1.499505,  1.42S9S8,  1.348532,  1.263272, 
S  1.170505,  1.0S9037,  .957311,  .833339,  .697242,  .545404, 
$  .380355,  .198337,  .000000,  1.773224,  1.767309,  1.747449, 
S  1.716115,  1.573707,  1.620573,  1.5S0086,  1.491212,  1.415361, 
5  1.335315,  1.247932,  1.154145,  1.053206,  .942199,  .820437, 
5  .633143,  .537935,  .374496,  .195453,  .000000,  1.773219, 
5  1 .767121,  1.747116,  1.7150S3,  1.571236,  1.616250,  1.552832, 
$  1.430704,  1.401583,  1.3182S5,  1.223751,  1.133893,  1.033017, 
5  .923331,  . 30374S,  .G72297,  .527379,  .357490,  .192005, 
5  .000000,  1.773214,  1.7SS549,  1.74SS23,  1.713683,  1.668283, 
5  1.511431,  1.544239,  1.453434,  1.3S5S73,  1.29784 7,  1.205703, 
5  1.109405,  1.003251,  .900242,  .733230,  .855274,  .514409, 
5  .353974,  .137305,  .000000,  1.773207,  1.757280,  1.746580, 
5  1.713103,  1.GSS45S,  1.G0S479,  1.53S753,  1.455217,  1.3B770P, 
S  1.275349,  1.179610,  1.030547,  .979557,  .872579,  .758467, 
S  .534579,  .493565,  .347334.  .132253,  .000000/ 

3C 

3  DATA  T3B3/  1.773200,  1.76S314,  1.74S110,  1.711710,  1.563318, 
3  5  1 .SOI 104,  1.527036,  1.441591,  1.347707,  1.249555,  1.148220, 
3  S  1.04628S,  .944397,  .339293,  .728751,  .509787,  .47SB49, 
3  5  .335455,  .176127,  .000000,  1.773191,  1.7SSBS0,  1.745749, 
3  3  1.710522,  1 .550490,  1.595583,  1.517432,  1.42S453,  1.325900, 
3  3  1.220417,  1.112350,  1.00S002,  .902360,  .799418,  .592918, 
3  3  .579313,  .455730,  .320019,  .1S34SS,  .000000,  1.773182, 
3  5  1.757113,  1.745510,  1.7097S3,  1.G53354,  1.590402,  1.506589, 
3  3  1.411412,  1.302522,  1.139105,  1.071797,  .958990,  .854189, 
3  5  .751949,  .549853,  .543715,  .429215,  .300895,  .158910, 
3  3  .000000,  1.773172,  1.766514,  1.745120,  1.708359,  1.555252, 
3  3  1.535137,  1.493305,  1.394934,  1.278019,  1.152286,  1.024370, 
3  3  .903245,  .794502,  .594548,  .538701,  .500914,  .396192, 
3  3  .279503,  .143374,  .000000,  1.773150,  1.766886,  1.744994, 
3  3  1.707594,  1.553350,  1.530377,  1.48333S,  1.379974,  1.253020, 
3  5  1.115450,  .971330,  .333405,  .725452,  .525403,  .535575, 
3  3  .443730,  .356518,  .251555,  .134418,  .000000/ 

3C 

3  DATA  T334/  1.773148,  1.7GS88S,  1.744770,  1.705391,  1.S51350, 
3  3  1.575031,  1.431777,  1.335440,  1.223351,  1.075313,  .912514, 
3  3  .761311,  .540530,  .543333,  .432778,  .387042,  .309008, 
3  3  .213547,  .113413,  .000000,  1.773135,  1.7BS232,  1.744374, 
3  3  1.705331,  1.549073,  1.572301,  1.473305,  1.351758,  1.205234, 
3  5  1.033233,  .843739,  .553059,  .534340,  .443731,  .375285, 
3  3  .313937,  .253003,  .132072,  .033337,  .000000,  1.773122, 
3  3  1 .755334,  1.7444SS,  1.705732,  1.S43443,  1.553545,  1.4GS025, 
3  5  1.341577,  1.135259,  .S37433,  .777334,  .553751,  .410830, 
3  3  .323713,  .239571,  .225297,  .133201,  .132078,  .074306, 
3  3  .000000,  1.773107,  1.755342,  1.744230,  1.705180,  1.547300, 
3  3  1.537542,  1.434323,  1.333501,  1.153114,  .835845,  .712731, 
3  5  .415353,  .235455,  .173323,  .143350,  .122731,  .100598, 
3  5  .074529,  .044213,  .000000,  1.773035,  1.7SS130,  1.74405S, 
3  0  1.704571,  1.343515,  1.5S3430,  1.431352,  1.330333,  1.155519, 
3  3  .350330,  .531554,  .214933,  -.017429,  .020759,  .009179, 
3  2  -.001533,  .002339,  .000223,  -.000042,  .000000/ 

33 


3 

DATA  T4B1/ 

2.170321, 

2.153237, 

2. 143355, 

2.110933,  2,055997, 

3 

5 

2.009433, 

1.941330, 

1.353493, 

1,774542, 

1.575014, 

1,554610. 

3 

5 

1.442331, 

1.303491, 

1 . 153535, 

1.004949, 

, 332395, 

.545454, 

3 

3 

.445300, 

.230392, 

.000000, 

2.170321, 

2.154943, 

2.144179, 

3 

3 

2.111492, 

2.053755, 

2.003425, 

1.942333, 

1.333750, 

1.774085, 

3 

3 

1.5752'.!, 

1.554293, 

1.442411, 

1.30 3259, 

1.153133, 

1 . 004556, 

3 

3 

.832533, 

.545075, 

•  443733 , 

.230402, 

,000000.  2.170820, 

3 

3 

2. 154315, 

2.143335, 

2.111047, 

2.035333, 

2,003905.  1.941145, 

3 

3 

1.352233, 

1.772353, 

1.572351, 

1.532037, 

1.440075,  1.305720, 

3 

3 

1.150372, 

1.002435, 

,330322. 

. 344753 , 

.444734, 

,229370. 

3 

$ 

.000000, 

2. 170320, 

2.134525, 

2. 143335, 

2.111020, 

2.055310, 

3 

3 

2. 003224, 

1.940130, 

1.830721, 

1.770317, 

1.370257, 

1.558742, 

123 


3 

S 

1.43S419, 

1.303074, 

1.157231, 

.999171, 

.827838, 

.642567, 

3 

$ 

.443231, 

.229120, 

.000000, 

2.170820, 

2.164825, 

2.144011, 

3 

$ 

2.110983, 

2.065571, 

2.007289, 

1.938823, 

1.858512, 

1.767043, 

3 

$ 

1.SG6425. 

1.554060, 

1.431208, 

1.297840, 

1.151993, 

.994439, 

3 

3C 

3 

$ 

.823833, 

.639381, 

.441110, 

.228067, 

.000000/ 

DATA  T4B2/ 

2.170819, 

2. 164098, 

2.143687, 

2.110309, 

2.064295, 

3 

$ 

2.005964, 

1.936141, 

1.854948, 

1.762840, 

1.660457, 

1.547481, 

3 

$ 

1.424094, 

1.290127, 

1.144794, 

.987705, 

.818033, 

.635024, 

3 

$ 

.438071, 

.226540, 

.000000, 

2.170818, 

2.164806, 

2.143849, 

3 

$ 

2.110422, 

2.064206, 

2.004627, 

1.934402, 

1.851812, 

1.757772, 

3 

$ 

1.654704, 

1.540039, 

1.415545, 

1.281500, 

1.135869, 

.979508, 

3 

$ 

.811029, 

.629400, 

.434190, 

.224595, 

.000000, 

2.170817, 

3 

$ 

2. 164608, 

2.143686, 

2.109868, 

2.063200, 

2.002971, 

1.931453, 

3 

$ 

1.847434, 

1.751836, 

1.646789, 

1.530574, 

1.404844, 

1.270023, 

3 

$ 

1.124503, 

.968880, 

.801829, 

.622193, 

.429281, 

.222137, 

3 

$ 

.000000, 

2.170816, 

2. 163945, 

2.143354, 

2.109216, 

2.061702, 

3 

$ 

2.00109 7, 

1.927777, 

1.842216, 

1.745099, 

1.637202, 

1.519244, 

3 

$ 

1.391932, 

1.255739, 

1.110388, 

.955489, 

.790119, 

.613047, 

3 

$ 

.423046, 

.219010, 

.000000, 

2.170815, 

2.164878, 

2.143572, 

3 

$ 

2.109384, 

2.061619, 

1.999350, 

1.925450, 

1.837810, 

1.737671, 

3 

$ 

1.628260, 

1.507046, 

1.377197, 

1.240026, 

1.093524, 

.939374, 

3 

3C 

3 

S 

.775977, 

.601606, 

.414888, 

.214879, 

.000000/ 

DATA  T4B3/ 

2.170814, 

2.164347, 

2.143280, 

2.108681, 

2.060168, 

3 

$ 

1.997326, 

1.921510, 

1.831946, 

1.729613, 

1.616503, 

1.492337, 

3 

$ 

1.359565, 

1.219798, 

1.072601, 

.919024, 

.757839, 

.587115, 

3 

$ 

.405026, 

.209919, 

.000000, 

2.170812, 

2.164198, 

2.143122, 

3 

$ 

2.108206, 

2.059072, 

1.995349, 

1.917902, 

1.826204, 

1.721113, 

3 

$ 

1.604316, 

1.476192, 

1.339462, 

1.196371, 

1.047303, 

.893927, 

3 

* 

.735197, 

.568763, 

.392173, 

.203410, 

.000000, 

2.170811, 

3 

$ 

2.164797, 

2.143227, 

2.108187, 

2.058696, 

1.993526, 

1.915086, 

3 

$ 

1.821011, 

1.712356, 

1.592315, 

1.458899, 

1.316856, 

1.169561, 

3 

$ 

1.016823, 

.863034, 

.706960, 

.545518, 

.375474, 

.194900, 

3 

$ 

.000000, 

2.170809, 

2.164094, 

2.142888, 

2.107423, 

2.057178, 

3 

$ 

1.991610, 

1.911075, 

1.814909, 

1.703567, 

1.578141, 

1.439553, 

3 

$ 

1.291027, 

1.136420, 

.979244, 

.823818, 

.670430. 

.515493, 

3 

$ 

.354935, 

.184513, 

.000000, 

2.170807, 

2.164585, 

2.142972, 

3 

$ 

2.107393, 

2.056834, 

1.990022, 

1.908513, 

1.810066, 

1.695079, 

3 

$ 

1.565655, 

1.420163, 

1.263374, 

1.100096, 

.934038, 

.775150, 

3 

3C 

3 

$ 

.624343, 

.476731, 

.326596, 

.170005, 

.000000/ 

DATA  T4B4/ 

2.170805, 

2.164616, 

2.142908, 

2.107137, 

2.056178, 

3 

$ 

1.988573, 

1.905844, 

1.805380, 

1.687196, 

1.553012, 

1.400355, 

3 

$ 

1.233503, 

1.057230, 

.878645, 

.712617, 

.563897, 

.426092, 

3 

$ 

.290954, 

.151878, 

.000000, 

2.170804, 

2.163904, 

2.142599, 

3 

$ 

2.106497, 

2.054970, 

1.987269, 

1.902875, 

1.800825, 

1.680286, 

3 

$ 

1.540537, 

1.381154, 

1.202803, 

1.008545, 

.811488, 

.629457, 

3 

$ 

.482260, 

.359282, 

.245319, 

.128858, 

.000000, 

2. 170E02, 

3 

$ 

2.164764, 

2.142853, 

2.106823, 

2.055320, 

1.986490, 

1.901954, 

3 

$ 

1.798338, 

1.674820, 

1.532175, 

1.365132, 

1.175784, 

.959747, 

3 

$ 

.729965, 

.526280, 

.377719, 

.269795, 

.181745, 

.096658, 

3 

$ 

.000000, 

2.170800, 

2.164388, 

2.142693, 

2.106501, 

2.054723, 

3 

$ 

1.985861, 

1.900494, 

1.796024, 

1.671037, 

1.524901, 

1.352314, 

3 

$ 

1.151884, 

.913571, 

.639924, 

.368356, 

.220849, 

. 155262, 

3 

$ 

.105409, 

.057354, 

.000000, 

2.170798, 

2.163829, 

2.142488, 

3 

$ 

2.106133, 

2.054137, 

1.985547, 

1.899508, 

1 . 794943, 

1.668884, 

3 

$ 

1.521450, 

1.346740, 

1.128583, 

.897988, 

.572877, 

.099774, 

3 

S 

-.018436, 

.031183, 

.002476, 

-.000457, 

.000000/ 

3C 

3C  INTERPOLATE  NUMERICAL  SOLUTION  BY  QUADRATICS 

3C 

3  CALL  QUADRDC  X, Y, TABLE, GRID, GRID, NGRID, NGRID, NGRDD, NGRDD, DERUSL) 
3C 

3  TRUE  =  DERUSL(G) 

3C 

3  RETURN 

3  END 

3  FUNCTION  D(X) 

3  D  =  0. 

3  IF  (X  .NE.  0.)  D=l./X 

3  RETURN 

3  END 

3  FUNCTION  C(X) 

3  C  =  0. 

3  IF  (X  .NE.  0.)  C=l./X**2 
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i 


2  00  03  00  ?0  00.20 

i  l!Q  dimensions 
"?  c : ^ /  j  ux;  '3  +  r 
P^X.YHJYS  -  (. 

mi.:zd 

=0.  ,  MIXED  = 
A=l.  .  MIMED  = 
7-0.  ♦  MIXED  = 
,-i.  ,  MIXED  - 


5  HOMOGENEOUS 
:<,7)UY73  +  .?i(XfY)UX5 
,A)U5  =  0.0 

(1. )U  +  (-1. )UX  =  1. 

( 1 . ) U  +  (  I. ) UX  =  i . 
(1. )U  +  (-1. )UY  ^  1. 
(1. )U  +  C  1. )UV  =  1. 


+ 
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MACRO  52  PARAMETERS  * 

x  -x  x  x  x  x  x x  a  »  a  x  a  a  x-  a  x x-  x  a  -x-  a  -a  -a  a  a  a  a  a  a  -a  -x  -a  -x*  -a  a  -a  a  a 
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1 
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111,-2. 
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-2.333537, 
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j 

5-3. J’ 3334, 

-3.533243, -3.74  ! 

104,-3. 

323433, 

-4.103513, 

-4.2472BS 

j 

3-4.35237!, 

-4. 415257. -4.433 

:-33,  -4. 

402111, 

-4.221443, 

-4.193857 

3-4. 023353, 

■  3 , 3  2  p  w  )  i  ~  j  •  j  5  ^ 

330,-2. 

477411, 

—2 • S39337 * 

-2.877542 

j 

3-3.  757772, 

-3.2231S0,-3.53V712,-3. 

— — *  — ■  — i 

r  uj jJ-> 

-4,005370, 

-4.2087G7 

G 

0-4 ,252330. 

-4.537230, “4 . 342 

\  ].  Zi  3  3  0  * 

-4.734307, 

-4.70323G 

3 

o-  j.sisrss, 

-4. 43! 300, -4. 304 

1  0  *  -  :  . 

'25013, 

-3. 3330  IE, 

-2.G74G75 

"> 

r  c  .  , 

-3.037121 ,-3.5 13 

Zi  J  l  »  “*  J  , 

5'0331. 

-3. 3! 4333, 

-4.05S4SG 
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>  '*  '  '  .  '/i  3  7  > 

-4. 5034 21.-  -4,233 

C  *rP  ,  -  1 

35!  ’72, 

-4 . 533333* 

-5.041497 

c 

■  ■  ‘  J  i  0  -■  ' 

-5/:o::o.-i.::o 

i  ;o  _  i 

G  .333? 

-4,307137, 

-4.37G274 

G - ! , *  1 G “ 3B. 

-O  J  3  1  1  '  j  ■' 

RGB*  *3. 

1 33  ‘  5 ! * 

-3.574302, 

-3.809377 

3  -  ! . 

■  -r .  3 '<3  :  !o»  ,  533 

’  3  3 '  ; , 

-5,013332. 

-5.1SS777 

3 

..J  }  ‘  '  5  .  .  ) 

o.-.v 

'  •'  ,  -  • 

•;  *3  ; .  .>  ■ 

J  .  PuJ J3  JJ 

-5.135442 

3 

...i  c'ti  3 >  -  1  1  •  *; 

^  - 

:  o , 

■  G  ,  G  E  3 1  r  3 » 

--3.570G75 

j  ,  : , 

"!  * 

-  1 ,30i  j.  5, 

-j  ,  1  e]  ^  G44 

3  $-5. 359355, -5. 538342. -5. 673801, -5. 757383. -5. 78323?. -5. 750050, 

3  $-5.652781, -5.494061. -5.285534, -5.026931 . -4.735006/ 

3C 

3  DATA  T132/-3. 319588,-3.557704,-3. 814992. -4. 087607, -4. 371 136. 
3  S-4. 659276, -4.945233,-5.221 153. -5.478 167, -5. 707150, -5. 898626. 

3  $-6.043963,-6.134335,-6. 164839, -6. 1 30549, -6. 029687. -5. 865297, 

3  $-5.642867, -5.371350, -5. CGA/a7. -3.536238,-3.736231,-4.056465, 

3  $-4.343003,-4.641409,-4.945226,-5.247200,-5.539237,-5.811945, 

3  $-6. 055399.-6.260448. -6. 41 6966. -6. 5 16584, -6. 550719, -6.518987, 

3  $-6. 4 15240, -6. 242165. -6.012213, -5. 7251 12, -5. 389797, -3. 744091, 

3  $-4.005609,-4.288457,-4.538693,-4.901321,-5.221142,-5.539232, 

3  $-5.847568,  -6. 136263. -6.395407, -6. 613634, -6. 781 725, -6. 890016. 

3  $-6.929951,-6.899623,-6.733538.-6.614476,-6.373268,-6.072755. 

3  $-5.731579,  -3.936432,-4.203748,-4.503405,-4.816681,-5.143926, 

3  $-5.478153,-5.811935,-6. 1 36262, -6.440792, -6. 714804, -6. 9471 14, 

3  $-7. 126991 .  -7. 243976,  -7.290879. -7.261707, -7.153986, -6.970878, 

3  $-6.717139,-6.404841,-6.049337,-4. 106498,-4.338683,-4.693715, 

3  $-5.018842, -5.359151, -5.707 1 , 1 . -6. 055849, -6. 395290, -6. 714795. 

3  $-7.004259.-7.249851,-7.441904, -7. 569564. -7. 621950, -7.597948, 

3  $-7.489698, -7.299751. -7. 041375. -6.715955, -6. 343822/ 

3C 

3  DATA  T1B3/-4. 24  7  2  39,  -4. 537’ 166, -4.351413, -5. 186694, -5. 538230, 
3  $-5. 898537. -6.260363, -6. 613568. -6. 947099. -7. 249844, -7. 508522, 

3  $-7.71 1945, -7.848491, -7.908426, -7.887137, -7. 779087, -7. 587039, 

3  $-7.319362,-6.984379,-6.601692,-4.352339,-4.648452,-4.969551, 

3  $-5.312337,-5.673655,-6.043918, -6. 416831 . -6. 781617, -7. 126969, 

3  $-7.4^1813,-7.711902, -7.925710, -8 . 071085, -8. 137910, -8. 120494, 

3  $-8.013640,-7.820049,-7.547003,-7.204432,-6.811596,-4.415631, 

3  $-4.716214,-5.041344,-5.390302,-5.757608,-6.134592,-6.516233, 

3  $-6.889737,-7.243942,-7.569313,-7.848370,-8.071077,-8.225159, 

3  $-8.297419, -3.235615, -8. 1309S6, -7.985598, -7. 712056, -7.363217, 

3  $-6.961731 . -4.433243, -4.734133, -5.061680,-5.412922, -5.783169, 

3  $-6. 164781,-6.550533.-6.929351,-7.290843,-7.621865,-7.908378, 

3  $-3. 137895, -3.297412, -8.376323,-3.367628,-8.265814,-8.073288, 

3  $-7. 795413, -7. 4454S3, -7. 043072, -4. 402063, -4. 702805, -5. 028218, 

3  $-5.379106,-5.749601,-6. 130437, -6.518531 , -6. 899265, -7. 261659, 

3  $-7.597524,-7.886929,-3. 12040 1 , -8 .285385, -8. 367567, -8. 363758, 

3  $-8.265613,-8.074385,-7.801117,-7.451618,-7.047560/ 

3C 

3  DATA  T1B4/-4. 321397, -4. 617910. -4. 938938. -5. 285676, -5. 652307, 
3  $-6.029568, -6.414758, -6.793152, -7. 153933, -7. 489248, -7. 778B64, 

3  $-8.013537,-8. 180719. -8. 265745, -8.265612, -8. 1 71591 , -7. 985176, 

3  $-7.716002,-7.370826,-6.970363,-4.193810,-4.481816,-4.796561, 

3  $-5. 1353SG. -5. 493972. -5. 865233, -6. 242077, -6. 614398. -6. 970830, 

3  $-7.299675,-7.536987,-7.820012, -7.985555, -8. 073266, -8. 074875, 

3  $-7.985171,-7.806041,-7.541693,-7.205032,-6.814478,-4.022610, 

3  $-4.303953,-4.606903,-4.936086,-5.284853,-5.642713,-6.011492, 

3  $-6.372695,-5.717073,-7.041131,-7.319499,-7.546800,-7.711523, 

3  $-7.796263,-7.800902,-7.715782,-7.541672,-7.287505,-6.960953, 

3  $-6.531414,-3.315741,-4.084604,-4.376095,-4.691830,-5.026501, 

3  $-5.371237,-5.724659,-6.072391,-6.404786,-6.715491,-6.384646, 

3  $-7.204297,-7.362387,-7.445387,-7.451482,-7.370689,-7.205016, 

3  $-6.960951,-6.647753,-6.233551,-3.583633,-3.837966,-4.116637, 

3  S-4. 416831 , -4 . 734953. -5. 064746, -5.39974 7, -5.731531, -6.049792, 

3  S-6. 343730, -6. 601654, -6. 31 1564, -6. 961704, -7. 043052, -7. 047545, 

3  $-6.970353,-6.314473,-6.531412,-6.233551,-5.937218/ 

3C 


3 

DATA  T2B1/ 

.473933, 

,443750. 

.413085, 

.372015, 

.325851 

3 

$ 

.275479, 

.221334, 

.  1 G3543, 

.111361, 

.058370, 

.009911 

3 

S 

-.031690. 

-.034102, 

-.035585, 

-.094622, 

-.030432, 

-.073359 

3 

$ 

-.043993. 

-.004235. 

.043093, 

.448750, 

.417191, 

.379138 

3 

$ 

.335723, 

.236311, 

.233106, 

.  176590, 

.117718, 

.058754 

3 

s 

.002353- 

-.048907. 

-.033287, 

-.127655, 

-. 150734, 

-.160524 

3 

$ 

-.  155153. 

-.133052, 

-.107239, 

-.065052, 

-.014599, 

.413085 

3 

$ 

.379199. 

.333633. 

.232047, 

.239587, 

.182074, 

.121051 

3 

$ 

.057764, 

- . 005507 . 

- . 0GSQ99, 

-. 121336, 

-.169745, 

-.207118 

3 

$ 

-.232144, 

-.242333, 

-.233474, 

-.213272, 

-. 186125, 

-.141026 

3 

$ 

-.037125, 

.372015, 

.335722, 

.232045, 

.241840, 

.185165 

3 

$ 

. 122677, 

.053652, 

-.012216, 

-.081321, 

-.147148, 

-.208247 

3 

s 

-.260341, 

-.301342, 

-.323721, 

-.341334. 

-.337682, 

-.317244 

3 

3 

-.231823. 

-.233030. 

-. 174720, 

.325353, 

.286905, 

.239585 

3 

3 

. 185165. 

. 123550, 

.055251, 

-.016754, 

-.092230, 

-.168236 

3 

$ 

-.240467, 

-.307984, 

-.36G2S5, 

-.411801, 

-.443187, 

-.457441 

3 

3C 

3 

$ 

-.453449, 

-.431711, 

-.393647, 

-.340704, 

-.277178/ 

DATA  T2B2/ 

.275481, 

.233107, 

.182076, 

.122678. 

.055252 

132 


3 

0 

-.019057, 

-.093575, 

-. 131433, 

-.284749,  -.345255, 

-.419782 

3 

3 

-.434474, 

-.535733, 

-.570941, 

-.537490,  -.534053, 

-.561043 

3 

s 

-.519413, 

-.482044, 

-.393094, 

.221333,  .173539, 

.121053 

3 

5 

. 058359, 

-.018745, 

-. 093573, 

-.185203,  -.278589, 

-.369096 

3 

5 

-.457330, 

-.540824, 

-.813044, 

-.870245,  -.710844, 

-.730248 

3 

5 

-.727840, 

-.703371, 

-.859143, 

-.598471,  -.520333, 

.166543 

3 

'3 

.117719, 

.057783, 

-.012209, 

-.092221,  -.131430, 

-.276567 

3 

0 

-. 37G37S, 

-.473804, 

-.576497, 

-.888870,  -.749294, 

-.813804 

3 

5 

-.859234, 

-.832231, 

-.330751, 

-.855335,  -.307548, 

-.739871 

3 

3 

-.857432, 

.111387, 

.058780, 

-.005501,  -.031314, 

-.168230 

3 

S 

-.234744, 

-.389092, 

-.478802, 

-.539533,  -.893110, 

-.799441 

3 

$ 

-.833S75, 

-.93034a, 

-1.012034, 

-1.033638,-1.033531, 

-1.012203 

3  S  -.930482,  -.837457.  -.793785.  .058377,  .002373,  -.088084, 
3  5  -.147118,  -.240422,  -.345242,  -.457338,  -.576484,  -.898107, 
3  3  -.315491,  -.927283,-1.025831,-1.105371,-1.183352,-1.194275, 
3  5-1. 195935, -1.168305, -1.1 14903, -1.033203,  -.940054/ 

3C 

3  DATA  T233/  .009920,  -.048389,  -.121823,  -.203228,  -.307957, 
3  5  -.419750,  -.540533,  -.SS3S49,  -.799438,  -.927280,-1.048289, 
3  5-1 . 155702, -1 .243353, -1 .307233, -1.342371 , -1 . 345930,-1.318398, 
3  3-1.231058,-1.177832,-1.075312,  -.031673,  -.093258,  -.189727, 
3  3  -.280310,  -.333224,  -.434457,  -.813001,  -.749258,  -.888686, 
3  3-1.025329,-1. 155837. -1.271499, -1.33S755, -1.433831, -1.475942, 
3  5-1.431831,-1.453930,-1.394011,-1.303253,-1.193151,  -.064089, 
3  S  -.127535,  -.207034,  -.301774,  -.411703,  -.535703,  -.670135. 
3  5  -.313515,  -.980335,-1.105231,-1.243309,-1.338751,-1.488469, 
3  5-1. 544190, -1.537655,-1. 595533, -1.5S79S7, -1.508384, -1.415280, 
3  5-1.301889,  -.035572,  -.150704,  -.232123,  -.329891,  -.443149, 
3  5  -.570920,  -.710803,  -.859249,-1.012019,-1.163319,-1.307289, 
3  5-1.438825,-1.544137,-1.824282,-1.871118,-1.881030,-1.654075, 
3  5-1.531147,-1.497237,-1.330818,  -.094808,  -.180425,  -.242852, 
3  5  -.341905,  -.457313,  -.537453,  -.730098,  -.832109,-1.038816, 
3  5-1. 194117,-1.342292,-1.475904,-1.587582,-1.871092,-1.720865, 
3  5-1 . 732707, -1 . 708363, -1 . 643403,-1 . 548036, -1 . 423989/ 

3C 

3  DATA  T2B4/  -.090415,  -. 15S05S,  -.238425,  -.337588,  -.453314, 
3  $  -.534014,  -.727479,  -. 830822, -1 . 038559, -1 . 195767, -1 .345895, 
3  5-1.481613,-1.595433,-1.681051,-1.732704,-1.748057,-1.720747, 
3  5-1.853304,-1.582381,-1.443238,  -.073341,  -.138027,  -.219250, 
3  5  -.317213,  -.431831,  -.581025,  -.703338,  -.855305,-1.012183, 
3  5-1 . 163773, -1.318375, -1.453913, -1 . 5S7948, -1.854085, -1 .706357, 
3  5-1.720745,-1.898739,-1.835030,-1.541073,-1.422911,  -.043975, 
3  5  -.107112,  -.188057,  -.231839,  -.333448,  -.519388,  -.858904, 
3  5  -.307352,  -.930437,-1.114824,-1.280919,-1.393923,-1.506649, 
3  $-1.591087,-1.643312,-1.653212,-1.835070,-1.575540,-1.483884, 
3  5-1.333323,  -.004278,  -.084950,  -.140978,  -.232992,  -.340577, 
3  $  -.482005,  -.533317,  -.733548,  -.837434, -1 . 038027, -1 . 177542, 
3  5-1.308202,-1.415148,-1.497248,-1.547973,-1.582303,-1.541071, 
3  S-l. 433333, -1.335738, -1.234420,  .043118,  -.014531,  -.087106, 
3  5  -.174700,  -.277153,  -.333073,  -.520318,  -.857481,  -.7 98745, 
3  5  -.940035,-1.075294,-1.193133,-1.301358,-1.330308,-1.428982, 
3  5-1.443231,-1.422903,-1.333325,-1.234419,-1.173403/ 

3C 


3 

DATA  T331/ 

.123993, 

.075205, 

.017325, 

-.033118, 

-.080112, 

3 

5 

-.097453, 

-.079531, 

-.024218, 

.080504, 

.182310, 

.  68 1 038, 

3 

5 

.332932, 

. 359383, 

.342591, 

.237119, 

.21 2323 , 

.143734, 

3 

0 

.103549, 

.100115, 

.130248, 

.075205, 

.020373, 

-.042050, 

3 

S 

-.101332, 

-.147439, 

-. 1G7279, 

-.149574, 

-.091839, 

-.002502, 

3 

$ 

.103918, 

.203773, 

.230741, 

.305333, 

.233781, 

.221892, 

3 

3 

.140192, 

.035282, 

.022950, 

.020287, 

.053445, 

.017325, 

3 

3 

-.042050, 

-.110341, 

-.178734, 

-.223232, 

-.251777, 

-.234893, 

3 

5 

-.174545, 

-.031441, 

.029325, 

.134453, 

.205931. 

.223217, 

3 

3 

.139114, 

.113010, 

.013333, 

— ■ 0343 1 3 , 

-.109534, 

-.109188, 

3 

3 

-.070020, 

-. 0331  IS, 

-.101331, 

-.173773, 

-.250301, 

-.308100, 

3 

5 

-.338122, 

-.319383, 

-.253733, 

-.159235, 

-.044530, 

.0G015G, 

3 

3 

.125920, 

.130340, 

.077332, 

-.017034, 

-. 127447, 

-.221913, 

3 

3 

-.283503, 

-.233312, 

-.21GS10, 

-.030103, 

-.147420, 

-.228283 

3 

3 

-.303033, 

-.371130, 

-.402143, 

-.334534, 

-.317027, 

-.213839, 

"i 

■J 

Ci 

-.095313, 

.007775, 

.084722, 

.051990, 

-. 02333d, 

-.138378, 

3 

5 

-.235317, 

-.339370, 

-.415233, 

-.403400, 

- . 343333/ 

3 

3.37 A  T37?/ 

-.097453, 

-.  137237, 

-.251733, 

-.333117, 

-.402140 

3 

j 

-.432453, 

-.410533, 

— . 33o333, 

-.224230, 

-.10i519, 

-.000451 

'.1 

vj 

<r 

.045313, 

.012373, 

-.033523, 

-.219713, 

- .  3o7333, 

-.481893 

■rt 

-.501734, 

-.430710. 

-.413235, 

-.  073d7d, 

-.  143418, 

-. 234G33 

n 

j 

3 

-.318582, 

-.334472, 

-.410570, 

-.331837, 

-.255745, 

-.174111 

133 


3 

0 

-.043230, 

.053343, 

. 0395S7, 

.040343, 

-.074972, 

-.221806, 

3 

0 

-.353540, 

-.455223, 

-.432402, 

-.447339, 

-.331213, 

-.024211, 

3 

0 

-.091514, 

-. 174497, 

— • 253373, 

-.313937, 

-.335843, 

-.235742, 

3 

0 

-.197403, 

-.035352, 

.037300, 

.183103, 

.187597, 

.122775, 

3 

s 

-. 004551 » 

-.150943, 

-.272313, 

-.341348, 

-.340935, 

-.288826, 

3 

5 

-.220243, 

.030503, 

-.002494, 

-.031435, 

-.159287, 

-.213890, 

3 

0 

-.224373, 

-.174103, 

-. 035350, 

.073450, 

.208813, 

.293471, 

3 

0 

. 301G33, 

.219434, 

.033174, 

-.043721, 

-.138533, 

-.180111, 

3 

0 

-.115001, 

- . 033932, 

.032232, 

.132311, 

.104118, 

.029897, 

3 

5 

-.044440, 

-. 0S5479, 

-.101490, 

-.  04S247 , 

. 0B728S, 

.206815, 

3 

S 

.331725, 

.400547, 

. 33S739, 

.233505, 

.145475, 

.028720, 

3 

3C 

3 

0 

-.009277, 

. 033593, 

.130024, 

.243337, 

.327546/ 

DATA  T333/ 

.231032. 

.203337, 

.134433, 

.080198, 

.007841, 

3 

S 

-.000435, 

.053339, 

. 133107, 

.293475, 

.400543, 

.443089, 

3 

0 

.397749, 

.239392, 

. 120930, 

.023570, 

.048584, 

.181454, 

3 

5 

.333233, 

.493134, 

..531070, 

.332953, 

.230758, 

.205894, 

3 

5 

. 125913, 

.034725, 

.045324, 

.033512, 

.187555, 

.301687, 

3 

0 

.333745, 

.397723, 

.315747, 

.153333, 

-.011371, 

-.090161, 

3 

0 

-.024029, 

. 153354, 

.401339, 

.314031, 

.713834, 

.359352, 

3 

3 

.305744, 

.223233, 

.130337, 

.051933, 

.012984, 

.040870, 

3 

S 

. 122333, 

.219435, 

•23S3S7, 

.239323, 

.153888, 

-.041887, 

3 

S 

-.237410, 

-.321575, 

-.230112, 

.000132, 

.291388, 

.551835, 

3 

3 

.375303, 

. 342575, 

.233735, 

.189109, 

.077328, 

-.023385, 

3 

5 

-.033522, 

-.075012, 

-.004580, 

. 03S177 , 

.145441, 

.120914, 

3 

5 

-.011972, 

-.237410, 

-.453370, 

-.531218, 

-.473735, 

-.231550, 

3 

5 

.094315, 

.379353, 

.515872, 

.237103, 

.221900, 

.113007, 

3 

S 

-.017075, 

-.133334, 

-.219718, 

-.221952, 

-.151058, 

-.048722, 

3 

0 

.023394, 

. 023253, 

-.090070, 

-.321295, 

-.581147, 

-.893219, 

3 

3C 

3 

3 

-.341933, 

-.432534, 

-.115902, 

.167791, 

.309873/ 

DATA  T334/ 

.212312, 

.140202, 

.018882, 

-.127458. 

-.265623, 

3 

S 

-.357332, 

-.359334, 

-.272433, 

-.133537, 

-.003309, 

. 046586, 

3 

3 

-.023335, 

-.229317, 

-.473S57, 

-.341328, 

-.850813, 

-.507641, 

3 

3 

-. 24445S, 

.003317, 

.145733, 

.143724, 

.065254, 

-.064623, 

3 

3 

-.221921, 

-. 339337 , 

-.431391, 

-.455233, 

-.341855, 

-.160116, 

3 

3 

. 033533, 

. 131442, 

.158358, 

.000188, 

-.231535, 

-.432552, 

3 

3 

-.507333, 

-.443503, 

-.257927, 

-.054149, 

.068182, 

.103541, 

3 

S 

.023033, 

-.109439. 

-. 2GS423, 

-.415111, 

-.501757, 

-.482510, 

3 

3 

-.341024, 

-.115011, 

.129941, 

.333138, 

.401483, 

.291788, 

3 

3 

.094423, 

-.115533, 

-.244173, 

-.257835, 

-.138802, 

.005410, 

3 

3 

.097410, 

.100109, 

.020333, 

-.109133, 

-.283282, 

-.403320, 

3 

3 

-.430391, 

-.443032, 

-.233331, 

-.038347, 

.248778, 

.438127, 

3 

3 

.314100, 

.552073, 

.379730, 

. 1S73S2, 

.003397, 

-.054118, 

3 

3 

.005413, 

. 104393. 

.179123, 

.130242, 

.053441, 

-.070020, 

3 

3 

-.213303, 

-.343329, 

-.419277, 

-.381208, 

-.220248, 

.032221, 

3 

5 

.327523, 

.531051, 

.713331, 

.875303, 

.515888, 

.309701, 

3 

5 

.145320, 

.033132, 

.097421, 

.173127, 

.247238/ 

3C 

3C  INTERPOLATE  NONLINEAR  SOLUTION  3Y  QUADRATICS 
3C 

3  CALL  QUADROON  Y.  TABLE. GRID. GRID, NGRID, NGRID. NGRDD, NGRDD, DERUSL) 
3C 

3  TRUE  =  DER'vSLCS) 

3C 

3  RETURN 

3  END 

3  FUNCTION  l-ICNDIRU,  K,  Y) 

3C 

3  PEAL  DERUSL (S),  GRIDO),  TA30.9) 

3  DATA  NGRID.  NGRDD.  GRID  /9,  9,  0.,  0.125,  0.250, 

3  00.375,  0.500,  0.S25,  0.750,  0.375,  1.00/ 

3G 

2C  APPROXIMATE  SOLUTION  OF  NONLINEAR  PROBLEM  FOR  NONLINEAR 
3C  COLLOCATION 

3C 

3  DATA  TA3/  -.349230,-1.033350,-1.342400,-1.591250,-1.813110, 

3  0-1 .0733  40, -2. 04 1340, -1.375430,-1 . 731410, -1 . 039350,-1 . 3S2380, 

3  0-1.  .343320,-1.333770,-2.  133320, -2. 377330, -2 . 453420, -2. 382970, 

3  0-2.103330,-1 .342330,-1.343310,-1.973700,-2.303520,-2.539760, 

3  0-3. 324330, -2. 023330, -2, 343230, -2. 533770, -1.591240,-1.933780, 

3  0-2. 3033 '0,-2. 377300, -3. 022520, -3. 233330, -3. 420340, -3. 348720, 

3  0-3. 001420,-1. 313030, -2. 133300, -2. 533750,-3. 022510, -3. 418130. 

3  0-3. 732750, -3.337230, -3.331430, -3.454320, -1 .973310, -2.377650, 

3  0-2.324300,-3.233320,-3.732740,-4.032330,-4.232330,-4.239580, 

3  0-3. 337550 , -2 . 0443 1 0 , -2 . 453330 , -2 . 323340 , -3 . 42031 0 , -3 . 837240 , 
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*3-' 1-.  232370.  -4. 522430,  -4. 434770.  -4, 071729, -1.975430.  -2. 382940, 
5-2.340230.-3.343330,  -3.331  -’.30 »  -4. 313540 »  -4. •434730* -4.461540* 
?-5.  ?53220»-l.?31370»-2.  '03340,  -2.533740,  -3. 001330,  -3.454230, 
0-3. 337330. -4. 071710, -4. 053220, -3. 353550/ 

INTERPOLATE  NONLINEAR  SOLUTION  3V  QUADRATICS 

DOLL  Q'JADRDc  X,  Y,  T A3, GRID, GRID.  NORID.  NGRID, NGRDD. NGRDD.  DERUSL) 

U  =  DERUSL CNDIRU) 

RETURN 

ZND 

FUNCTION  RCX.Y) 

R  =  11. /Cl.  +  10.*WCS,X.Y)) 

RETURN 

END 

FUNCTION  Rl(X.Y) 

R1  =  -110. /(I. +  10.  *UCG>  X.  Y)  )«»2*U(4,  Xf  Y) 

RETURN 

ZND 

FUNCTION  R2CX.Y) 

R2  =  -nO./Cl.-:-iO.*[l(S,X.Y))»*2*NC5,X,Y) 

RETURN 

END 


MACRO  53 

X  *  X-  -X*  -X-  X-  X  X  X-  X  X-  X 

2000021002000 

TWO  DIMENSIONS  5  CONSTANT  COEFFICIENTS 
UXX3  +  UYY5  -  C&A)U3  =  FCX.Y) 

DIRICHLET 

X=0 .  ,  U=TRUE( X, Y ) 

X=l.  ,  U=TRUE(X» Y) 

Y=0 .  ,  U=TRUE(X, Y) 

Y=l.  ,  U=TRUE( X. Y) 

FUNCTION  TRUECX.Y) 

TRUE  =  C0SC&3*Y)+SIilC&B*(X-Y)) 

RETURN 

END 

FUNCTION  FCX.Y) 

3XMY  =  &3*(X-Y) 

32  =  C2.3)*C&3) 

UXX  =  -32--3INC  BXMY) 

U  =  C03ft3»Y)+Si;KBXMY) 

UYY  =  -B2*'J 

F  =  UXX  +  UYY  -  UA)*U 

RETURN 

END 


EQR 


2000000002000 
TWO  DIMENSIONS 

C1.+X»X)UXX5  +  (l.-:-A(Y)**2)UYY5  +  (2.*X)UX$  + 
fiS.»V»A(Y))JY5  -  a.+(3.*Y-X-4.)e*2)U$  =  FCX.Y) 
DIRICNLET 

X=0.  ,  U  -TRUK X,  Y) 

7=1.  ,  U=TR'JICX>  V) 

Y=0 .  ,  U=TR'JI(’X,Y) 

7-1 .  ,  OTRUZCX.Y) 

FUNCTION  TRUECX.Y) 
jY=lV7) 

R  -  TMT;:a<0.,  <-3.-.U'ft07)o»3) 
j  3  -=  n;;axico.,x-aoy) 

3  T  -  0. 

U  -F  (3  . OE .  .02)  T  =  EXR--R/3) 

0  =  2. 25 '  07 2/00’, /“-”0 

3  ;i  i .  / f  1 .  f 3 , x',’-X-4 . ) ;::-2) 

3  ,RUE  =  r>  '  1 .  -T  i  +  N 


') 


3 

FUNCTION  A(  Y  t 

3 

A  -  4. 

*Y*Y  r&A) 

3 

RETURN 

3 

EMO 

3 

function  fcx.y) 

3 

(30  - 

a;y) 

3 

rtiv  = 

3 . -V 

3 

,i2iJ  = 

3. 

3 

ON  = 

X*(X-A0Y)*»2 

3 

GNX  = 

3.»X**2  -  4. *X*A0Y  +  A0Y**2 

3 

Gr;xx= 

S.*X  -  4. *A0Y 

3 

GNY  = 

2.*X*( A0Y-X)*A1Y 

3 

GNYY= 

2.*X»A1Y**2  +  2.*X*(A0Y-X)»A2Y 

3 

GD  = 

A0Y**3 

3 

GDY  = 

3.*A0Y»*2*A1Y 

3 

GDYY= 

3.*C2.*A0Y*A1Y**2  +  A0Y**2*A2Y) 

3 

G 

2.25»GiVGD 

3 

GX  = 

2.25'GnX^GD 

3 

GXX  = 

2.25-GNXX/GD 

3 

GY  = 

2. 25*  C GD*3NY-GN*GDY ) /GD**2 

3 

GYY  =2.25*C ( GD*GH YY-GN»GDY Y ) ✓GD»#2 

3 

3  ^ 

•  2 . * ( GN»GDY-GD*GNY ) *GDY/GD**3 ) 

3 

HD  = 

1.  +  C3.»Y-X-4.)*«2 

3 

l-IDX  = 

-2.«(8.»Y-X-4.) 

3 

:-:dxx= 

2. 

3 

l-IDY  = 

lS.*(3.»Y-X-4. ) 

O 

J 

HDYY= 

123. 

3 

H 

l./HD 

3 

IHX  = 

-KDX/HD*»2 

3 

HXX  = 

( -HDXX  +2 . «HDX*HDX/HD ) / ( HD*HD ) 

3 

HY  = 

-!-ID7/HD*»2 

3 

HYY  =  < 

:  -HDY Y  +2 . *HDY*HDY/HD ) / ( HD»HD ) 

3 

1  = 

0. 

3 

TX  = 

0. 

3 

TXX  = 

0. 

3 

TV  = 

0. 

3 

TYY  = 

0. 

3 

S  = 

AMAX1C0..X-A0Y) 

3 

IF  (S 

.LT.  .02)  GO  TO  10 

3 

R 

AMAX1C0.. (3.-X'A0Y)**3) 

3 

T  = 

1.0 

3 

IF  (R 

•EO.  0.0)  GO  TO  10 

3 

S2  = 

S*S 

3 

S3  = 

S2*S 

3 

SX  = 

1  . 

3 

SXX  = 

6. 

3 

SY  = 

-A1Y 

3 

SYY  = 

-A2Y 

3 

RX  = 

-3 . * ( 3 . -X/AO Y ) «*2/A0Y 

3 

RXX  = 

G . » ( 3 .  -X/AO  Y )  /A0Y*«2 

3 

RY  = 

3 .  ( 3 .  -X/AO Y )  k*2*X*A1Y7A0Y**2 

3 

RYY  = 

3 , * ( 3 . -X'AOY ) * ( X*A1Y/A0Y**2 ) »*2  + 

3 

3 

3 . "X*  C 3 . -X/A0Y ) *»2* C  A2Y-2 . *A1 Y»*2/A0Y ) /A0Y**2 

3 

0 

R/3 

3 

ax  = 

crx-ovs 

3 

oxx  = 

RXX'3  +  2.»(R-S-RX)xS3 

3 

07  = 

<RY-0»3YV3 

3 

aw  - 

<3"RYY-R*37Y)/S2  2.*CE*SY-S*RY)*SY/S3 

3 

1  = 

EXPC-O) 

n 

sj 

7X  = 

-OX*T 

3 

*7'  >'  *  _ 

(ox- ox  -  oxx)*t 

3 

T  \  = 

-OY*T 

•*> 

•J 

TYY  = 

'07*DY  -  OYY )  --T 

-1 

J 

10  !J 

G*a.-T)  *  ;-i 

3 

UX  = 

GX*  Cl. — T )  -  G*TX  +  HX 

J 

m;;x  = 

GXX*( l.-T)  -2 . *GX*TX  -  G*TXX  +  HXX 

n 

:J !  - 

GVa(l.-T)  -  G*TY  +  HY 

3 

IJYY  = 

GYY* (l.-T)  -2.*jY*TY  -  G*TYY  +  HYY 

J 

T  \  — 

(  1.  vX:>X)»'JXX 

"3 

_) 

TO  - 

2.  ;:X*’JX 

O 

TO 

1  u  — 

(l.+A0Y»*2)*'JYY 

Tt1  = 

2,*A07*.'ilY*U7 

<*> 

"3  = 

; ;  d  -:'j 

-i 

O 

r  - 

FI  22  +  F3  +  F4  -  F5 

M 

J 

RET'JRr 

I 

-J 

t:  'n 

i_  i  ■  i 
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3  FUNCTION  CDXU!X) 

3  CDXU  =  2.»X 

3  RETURN 

3  END 

3  FUNCTION  CDYUIY) 

3  CDYU  =  1G. *Y*A( Y) 

3  RETURN 

3  END 


’  EOR 

*«•*•»»*■»»«*»»» 

*  MACRO  55  * 

**»«»*«■•*****» 

*  2022021200220 

1  TWO  DIMENSIONS  $  CONSTANT  COEFFICIENTS  $  HOMOGENEOUS 

1.  POISSON  $  LAPLACE 

1  UXX$  +  UYY$  =  0. 

2  MIXED 

2  X=0 .  ,  UX  =  0. 

2  X=G.  ,  U  =  F!Y) 

2  Y=0 .  ,  MIXED  =  !A!X))U  +  (B(X>)UY  =  GCX) 

2  Y=l.  ,  MIXED  =  (C(X))U  +  !D!X))UY  =  H!X) 

3  FUNCTION  TRUE(X.Y) 

3C 

3C  ««•*»****»****»**»*»***#•»*****  *»•»••»•«•»•••••*•••••»•• 


3C  *  * 

3C  *  MACRO  55  PARAMETERS  * 

3C  *  * 

3C  **»***«**»»*«*»***  ******* 

3C  »  * 

3C  *  A  I  B  I  C  I  D  * 

3C  *  - 1 - 1 - 1 -  • 

3C  »  1  I  3  I  1  I  1  * 

3C  *  III  * 

3C  »  3  I  2  I  1  I  2  * 

3C  *  III  » 

3C  *  1  I  3  I  2  I  3  * 

3C  »  III  * 

3C  *  G  I  2  I  2  I  4  * 

3C  *  * 

3C  if************-********************#*##**#*#************ 

3C 


3  REAL  DERUSL(S) »  TABLE! 20, 20 ) ,  GRIDXC20),  GRIDYC20), 

3  5  TIBI C 100) ,  T1B2C100),  T133(100),  T1B4(100), 

3  5  T2B1!100),  T2B2C100),  T2B3C100).  T234C100), 

3  5  T331U00).  T332U00),  T333C100).  T334U00), 

3  5  T431!100),  T4B2!100).  T4B3C100),  T4B4UOO) 

3  EQUIUALENCE  ( TABLE! 1,  1)  ,  T&D31 (11), 

3  5  (TA3LE! 1,  6)  ,  T&D32! 1 ) ), 

3  3  ! TABLE! 1,11)  ,  T&DB3I1)), 

3  3  ! T A3LE ! 1 » 1 6 )  ,  T&D34!!)) 

3  DATA  NGRID,  NGRDD/20,  20/ 

3  DATA  GRIDX/0. 0000000,  0.3157335,  0.S31573S,  0.9473G84, 
3  01 . 2331579,  1.5733474,  1.3347333,  2.2105233,  2.52S3153, 

3  02.3421053,  3.1573347,  3.4733342,  3.7334737,  4.1052G32, 

3  04.4210523,  4.7333421,  5.052331S,  5.3334211,  5.G342105, 

3  03.0000000/ 

3  DATA  GRIDY/0. 0000000,  0.0523313,  0.1052332,  0.1573947, 
3  00.2103233,  0.2331579,  0.3157335,  0.3334211,  0.4210523, 

3  00.4723342,  0.5233153,  0.5739474,  0.3315733,  0.G342105, 

3  00.7333421,  0.7394737,  0.3421053,  0.3947333,  0.9473334, 

3  01.0000000/ 

3C 

3C  APPROXIMATE  SOLUTION  OF  PROBLEM  USING 

2C  P3-C1  COLLOCATION  !3  X  8  GRID) 

3C 


3 

DATA  T131/ 

1.000000, 

1.003337, 

.983921 , 

.420922, 

.084411 

3 

0 

.035373, 

-.003353, 

-.015701, 

-.009375, 

-.002313, 

.008574 

3 

0 

.024493, 

.047173, 

.031310, 

. 135331, 

.224512, 

.335447 

3 

3 

.574550, 

.325133, 

. 1S3533, 

.333313, 

.901037, 

.353587 

3 

0 

.333040, 

.090743, 

.037577, 

.000429, 

-.012505, 

-.007912 

r> 

o 

0 

-.  001G30 , 

.003149, 

.024773, 

.047193, 

.  031G94, 

. 135738 

3 

0 

.222411, 

.333273, 

.537131, 

.301939, 

. 359473, 

.853182 

D 

u 

3 

.355271, 

.773375, 

.400049, 

. 123393, 

.043342, 

. 00GG93 

3 

!,) 

-.007349, 

— .  003273, 

-.000539, 

.003340, 

.024355, 

.043719 

3 

3 

.031055, 

.134750, 

.217433, 

.342537, 

.549524, 

. 7G2227 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3C 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3C 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


3 

3 

3 

3 

3 

3 

3 

3 


3 

r* 


.579319, 
.052703, 
.024734. 
.535720, 
. 333742, 
.001201, 
.203415, 


.301152, 
.011473, 
.043114, 
.752333, 
. 143713, 
.010233, 
.333227, 


.037037, 
.037454, 
.033075, 
.707037, 
.035130, 
.013012, 
.233247, 
.033132, 
, 035723, 
.114133, 
,031133, 
.031304, 
.023137, 


.300455, 

-.004313, 

.079303, 

.931023, 

.055315, 

.024401, 

.524903, 


.037033, 

.035537, 

.057347, 

.171054, 

.033233, 

.013313, 

.453370, 

.033135, 

.032232, 


.037042, 
•  041330 , 
.114334, 
. 03a093, 
.025323, 
.033331, 
.337150, 
.033217, 
,013:233, 
.222334, 
.031213, 
,032217, 
,  1 1 33  jj, 
.0-21 45, 


.037095, 
.037931, 
.191334, 
.035179, 
.035414, 
.033133, 
.303031, 
.033325, 
. 020335, 
.470552, 
.031243, 
.023753, 
. 1321 >  1 , 
.O'-IOOO'O, 


.037003, 
.017225, 
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,  3 

3 

1.335242, 

3.543543, 

11.102243, 

.003353, 

r> 

sJ 

3 

.003333, 

•  00333 1  * 

.003707, 

.003772, 

3 

c> 

. 005223, 

. 00 73 T9* 

.013750, 

.023537, 

*  -c 

0 

•31G031, 

.  030-437 * 

i • 723133* 

4.533033, 

n 

DATA  T4D2' 

.003413, 

.003414, 

.003413, 

I  ~> 

1 

3 

.  003  172, 

.003543, 

.003742, 

.004233, 

.  nt  5.174 . 

."23537, 

.072333, 

. 135031, 

5.4333  13. 

15 . 77233 1  * 

.003139, 

140 

.553257, 

.490053, 

.543372, 

.597281, 

.344033, 

.933757, 

.575251, 

.642355, 

. 5S1S02, 

.504130, 

.844727, 

.895743, 

1.394511, 

.628710, 

.501334, 

.528770, 

.743344, 

.796444, 

1.045757, 

1.120127, 

.523553, 

.502732, 

.652453, 

.639025, 

.344345, 

1.002420, 

.528583, 

.521735, 

.570737, 

.603672, 

.844303, 

.895678, 

1.543161/ 

.492433, 

.502885, 

. S55203, 

.700476, 

.345593, 

1.002315, 

.430353, 

.443190, 

.575149, 

.612788, 

.344333, 

.834143, 

1.523924, 

.379786, 

.523040, 

.548526, 

.743449, 

.797444, 

1.0G2770, 

1.176827, 

.448532, 

.507531, 

.357173, 

.701598, 

.943343, 

.393454, 

.231354, 

.318121, 

.531833, 

.616550, 

.344327, 

.894154, 

1.334541/ 

.421737, 

.514185, 

.559321, 

.702674, 

.943491, 

.335857, 

.174313, 

.220851, 

.584305, 

.518252, 

.843722, 

.832206, 

1.242253, 

.136548, 

.545155, 

.560966, 

.743032, 

.737521, 

1 . 058035, 

1.137732, 

.403775, 

.554385, 

.553355, 

.703012, 

.341339, 

.987375, 

-.005350, 

.027902, 

.533715, 

.618351, 

,843213. 

.830523, 

1.000000/ 

.004531, 

.004623, 

.004343, 

.004655, 

-.010432, 

.118104, 

.004397, 

.004331, 

.004473, 

.004338, 

.023434, 

.055158, 

4.233353, 

.004143, 

.004172, 

.004212, 

.010133, 

.013284, 

1.023011, 

2.522259, 

.003303, 

.003318, 

. 005130, 

.007054, 

.245353, 

. 638353, 

. 003334, 

.003651, 

.003337, 

.004378, 

.032132, 

.133340, 

13.3374oi/ 

.003422, 

.003435, 

.005273, 

. 0081GS, 

.377310. 

1.014253, 

.003173, 

.003175, 

3 

$ 

.003183, 

.003199, 

.003237, 

.003327, 

. 003545, 

.004136, 

3 

5 

.005233, 

.003585, 

.018880, 

.032337, 

.031573, 

.185377, 

3 

S 

.430181, 

1.137278, 

2.487190, 

S. 235543, 

18.830841, 

.002928, 

3 

S 

.002931, 

.002931, 

.002939, 

.002957, 

.002999, 

.003097, 

3 

$ 

.003337, 

.003935, 

.005248, 

.003383, 

.017708, 

.035597, 

3 

$ 

.083740, 

.202882, 

.473275, 

1.235212, 

2.734299, 

8.881943, 

3 

s: 

17.590091, 

.002832, 

.002833, 

•  002883, 

.002894, 

.002711, 

3 

s 

.002780, 

. 0023S1 , 

.003113, 

.003311, 

.005180, 

.009009, 

3 

5 

.013432, 

.037824, 

.094030, 

.218552, 

.508057, 

1.306782, 

3 

5 

2.945252, 

7.332422, 

18. 133S44, 

.002439, 

.002445, 

.002444, 

3 

0 

.002454, 

.002473, 

.002520, 

.002829, 

.002394, 

.003612, 

3 

s 

.005015, 

.009014, 

.018320, 

.038742, 

.097273, 

.224356, 

3 

3C 

3 

5 

.528382, 

1 .350438, 

3.078583, 

7.831748, 

18. 483033' 

DATA  T4B3/ 

.002195, 

.002198, 

.002200, 

.002209, 

.002227, 

3 

0 

.002277, 

.002388, 

•  002358, 

.003387, 

.004313, 

.008874, 

3 

5 

.018333, 

.039129, 

.098487, 

.227774, 

.535533, 

1.386358, 

3 

S 

3.137130, 

7.782745, 

13.484783, 

.001951, 

.001953, 

.001956, 

3 

S 

.001984, 

.001982, 

.002033, 

.002140, 

.002409, 

.003138, 

3 

5 

. 00455S, 

.003589, 

.018491, 

.033729, 

.097573, 

.226327, 

3 

S 

.533144, 

1.354719, 

3.123891, 

7.722318, 

13.233629, 

.001708. 

3 

5 

.001712, 

.001713, 

.001721, 

.001740, 

.001737, 

.001893, 

3 

S 

.002154, 

.002858, 

.004248, 

.003181, 

.017774, 

.037522, 

3 

5 

.094814, 

.2193S9, 

.518734, 

1.318257, 

3.033278, 

7.508407, 

3 

517.808733, 

.001484, 

.001485, 

.001483, 

.001478, 

.001492, 

3 

5 

.001539, 

.001833, 

.001385, 

. 002555, 

.003888, 

.007583, 

3 

3 

.018838, 

.035398, 

.039837, 

.207383, 

.490979, 

1.253101, 

3 

5 

2.853377, 

7.103834, 

17.224007, 

.001220, 

.001222, 

.001224, 

3 

5 

.001231, 

.001247, 

.001290, 

.001332, 

.001610, 

.002229, 

3 

$ 

.003448, 

.008375, 

.015348, 

.032579, 

.032305, 

.192798, 

3 

3C 

3 

5 

.451440, 

1.187923, 

2.811325, 

8.514965, 

18.511740' 

DATA  T4B4' 

.000978, 

.000978, 

.000930, 

•  000333, 

.001000, 

3 

5 

.001039, 

.001122, 

.001323, 

.001885, 

.002983, 

.008020, 

3 

5 

.013758, 

.028730, 

.074183, 

.173415, 

.398494, 

1.084147, 

3 

$ 

2.289923, 

5.71278S, 

15.700582, 

.000732, 

.000733, 

.000735, 

3 

$ 

.000741, 

.000751, 

. 00073S, 

.000358, 

.001022, 

.001532, 

3 

3 

.002393, 

.004994, 

.012100, 

.023582, 

.083788, 

.151100, 

3 

3 

.322304, 

.948891, 

1.894939, 

4.6S4329, 

14.814844, 

.000489, 

3 

5 

.000439, 

.000490, 

.000498, 

.000502, 

.000533, 

.000591, 

3 

3 

.000705, 

.001181, 

.001771, 

.003734, 

.010884, 

.017029, 

3 

5 

.051712, 

.129230, 

.228829, 

.320912, 

1.44S7BS, 

3.344271, 

3 

513.878120, 

.000245, 

.000244, 

. 00024S, 

.000251, 

.000251, 

3 

5 

.000230, 

.000324, 

.000357, 

.000381, 

.001025, 

.002258, 

3 

5 

.009950, 

.008112, 

.037583, 

.111328, 

.039023, 

.893087, 

3 

5 

.978333, 

1.895291, 

12.909414, 

.000001, 

.000000, 

.000001, 

3 

S 

.000003, 

-.000005, 

.000027, 

.000080, 

-.000050, 

.000622, 

3 

5 

.000098, 

.000182, 

.010343, 

-.004807, 

.020433, 

.103236, 

3 

5 

-.075919, 

.5G9891, 

.502551, 

-.373334, 

11.925739' 

3C 

3C  INTERPOLATE  NUMERICAL  SOLUTION  BY  QUADRATICS 


3C 

3  CALL  QU ADRD ( X , Y » T ABLE  >  GR I DX » GR I DY »  NOR I D , NGRI D , NGRDD » NGRDD  > 
3  5  DERUSL) 

3C 

3  TRUE  =  DERUSL(S) 

3C 

3  RETURN 

3  END 

3  FUNCTION  F(Y) 

3  DATA  BREAK, PI2'&A, 1.570738327' 

3  F  =  EXP(PI2»(BREAK-Y))*SIN(PI2«Y)'&A»»3 

3  RETURN 

3  END 

3  FUNCTION  A(X) 

3  DATA  BREAK'&A' 

3  A  =  1 . 

3  IF  (X  .GE.  BREAK)  A=0. 

3  RETURN 

3  END 

3  FUNCTION  BOO 

3  DATA  BREAK'&A' 

3  B  =  0. 

3  IF  (X  .GE.  BREAK)  B=l. 

3  RETURN 

3  END 
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3  FUNCTION  COO 

3  DATA  BREAK, KASE'4A.4C' 

3  C  =  1 . 

3  IF  CXA5E  .CO.  2  .AND.  X  .GE.  BREAK )  C=0. 

3  RETURN 

3  END 

3  FUNCTION  DCX) 

3  DATA  BREAK, KASE'iA.iC' 

3  D  =  0. 

3  IF  (ICASE  .EO.  2  .AND.  X  .GE.  BREAK)  D=l. 

3  RETURN 

3  END 

3  FUNCTION  GCX) 

3  DATA  BREAK. DECAY0'4A»  2.' 

3  G  =  l.'4A**3 

3  IF  (X  .GE.  BREAK)  G=G*EXP ( DECAYO* C BREAK-X ) ) 

3  RETURN 

3  END 

3  FUNCTION  H(X) 

3  DATA  BREAK, KASE, DECAYl'&A, 4C. 4B' 

3  H  =  0. 

3  IF  (KASE  .EO.  1)  RETURN 

3  IF  (X  .GE.  BREAK)  H=EXP ( DECAY  1* ( BREAK-X ) )'4A**3 

3  RETURN 

3  END 


’EOR 

*  »  »  •»  »  »  • 


*  MACRO  53  * 

*• »  s- »  ~  j>  » it  »  > 


1 

1 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


2000200202000 

TWO  DIMENSIONS  S  HOMOGENEOUS 
UXXS  +  C(X)UYY3  +  D(X)UX$  =  0. 
DTRTCH!_ET 

X=0.  ,  U=TRUE(X.Y) 

X=l.  ,  U=TRUE(X.Y) 

Y=0 .  ,  U=TRUE(X.Y) 


Y=S. 23318530718  ,  U=TRUE(X,Y) 

FUNCTION  TRUECX,  Y) 

DIMENSION  ALPHA ( 8 ) ,  NC4),  Z(4) 

DATA  ALPHA' 1 . ,  .5,  .25.  . 1GSSS5SSS67,  -.1,  - . 0SS6SSGSS67 , 
S  .03333333333,  -.02' 

DATA  U'O. 34735435,  .85214515,  .852515,  .34785435' 

DATA  Z'-. 83113831.  -0.33338104,  .33338104,  .88113831' 

IF  (2.A  .EO.  3)  GO  TO  10 
NCI)  =  2.0 
ZC1)  =  0.0 
GO  TO  20 
10  CONTINUE 

NCI)  =  0.34735485 

ZC1)  =  -0.33113331 
20  CONTINUE 


TRUE  =0.0 
DO  30  I=1»4A+1 
TRUE  =  TRUE  + 


30  CONTINUE 
DO  40  1=1,43 
TRUE  =  TRUE  + 
40  CONTINUE 
RETURN 
END 

FUNCTION  CCX) 

C  =  0. 

IF  CX  .NE.  0.)  C 

RETURN 

END 

FUNCTION  DCX) 

D  =  0. 

IF  CX  .NE.  0.)  D 

RETURN 

END 


N( I )*(EXP(-ZC I )»X*5IN(Y) )* 

CQSCZC I )*X*C05( Y) )+EXP(-ZC I )*X*COSCY) )* 
CO  S(Z(I)»X*SIWY>>) 


ALPHA! I )*X«*( I+I )*C0S( C I+I )*Y) 


=  l.'X**2 


l.'X 


» »s«  -3JJJ  ***»»»»»•***»*»*»*»»»***«***»*»  ***««**•*» 


—  —  —  —  —  -  —  -  —  -  ----------  --  —  -  —  —  -  —  -  —  # 

s  E  l  l  ?  a  c  ::  p  d  z  population  nodule  data  * 


NODATA 


NODATA  CONTAINS  THE  INFORMATION  NEEDED  TO  DECODE  ENCODED  ELLPACK 
PROGRAMS  AND  CHECK  CONPATIBILITY. 

LINE  1  HAS  THE  NUMBER  OF  NODULES  (NRMQDS)  IN  13  FORMAT.  NEXT 
FOLLOWS  NRMODS  PAIRS  OF  LINES.  THE  FIRST  OF  EACH  CONTAINS  A  UNIOUE 
INTEGER  IN  THE  RANGE  1..... NRMODS  IN  13  FORMAT  AND  AN  ELLPACK 
MODULE  NAME  STARTING  IN  COLUMN  G.  THESE  GIUE  THE  CORRESPONDENCES 
BETWEEN  MODULE  NUMBERS  USED  IN  ENCODED  PROGRAMS  AND  THE  NAMES 
OF  NODULES  TO  BE  USED  IN  THE  GENERATED  ELLPACK  PROGRAM.  THE  SECOND 
LINE  OF  THE  PAIR  CONTAINS  A  LIST  OF  INTEGERS  IN  4X.30I3  FORMAT  OF 
THE  MODULE  NUMBERS  THAT  MAY  IMMEDIATELY  FOLLOW  THIS  MODULE  IN 
ELLPACK  PROGRAMS.  AFTER  THIS  SET  Or  LINES  THERE  IS  ONE  LINE 
CONTAINING  A  SINGLE  INTEGER  IN  13  FORMAT  GIUING  THE  NUMBER  OF 
DISCRETIZATION  MODULES  (NRDIS).  THIS  IS  FOLLOWED  BY  NRDIS  LINES 
EACH  CONTAINING  A  MODULE  NUMBER  IN  13  FORMAT  AND  15  DIGITS 
STARTING  IN  COLUMN  5  GIUING  MODULE  COMPATIBILITY  INFORMATION 
(SEE  ROUTINES  GENPGM  AMD  COMPAT ) . 

RELATED  FILES:  GENPGM.  EGNFIL.  MACFIL.  OPTFIL.  GRDFIL  AND  OUTFIL 


33 

01  5-POINT  STAR 
14  15  1G  IF  32 
02  F-POINT  3D 
14  15  1G  IF 
03  P3-C1  COLLOCATICN 

14 

04  P3-C1  GALERKIN 
14 

05  HOD I E-HELMHOLTZ 
14  13  IF  32 
03  HODIE-ACF 
14  13  IF  32 
OF  HODIE-ACBIF 
14  1G  IF  32 
03  HOD IE  2F-P0INT  3D 

03  FFT  9-POINT 

10  2DEPEP 


11  MARCHING  ALGORITHM 

12  DYAKANO'J-CG 

13  DYAKAN0U-CG4 


14 

NAT1  IRA1 

20  21  22  30  31  33  34 

35 

33 

3F 

15 

RED-BLACK 

22  30  31  33  33 

13 

YALE  MIN  DEG 

30  31  33  34  35  33  3F 

IF 

YALE  ROM 

20  21  22  30  31  33  34 

35 

33 

3F 

13 

BAND  SOLUZ 

(RETIRED) 

10 

SYMMETRIC  BAND 

(RETIRED) 

20 

L INPACK  BAND 

21 

L INPACK  SPD  BAND 

22 

SPARSE  GE-PIL’DTING 

'  :  i 


23 

SOR 

( ITPACK 

1.0  -  RETIRED) 

24 

JAC03I  SI 

C ITPACK 

1.0  -  RETIRED) 

25 

JAC03I  CG 

(ITPACK 

1.0  -  RETIRED) 

2S 

SYMMETRIC  SOR 

SI 

(ITPACK 

1.0  -  RETIRED) 

27 

SYMMETRIC  SOR 

CG 

(ITPACK 

1.0  -  RETIRED) 

23 

REDUCED  SYSTEM 

SI 

(ITPACK 

1.0  -  RETIRED) 

29 

REDUCED  SYSTEM 

CG 

(ITPACK 

1.0  -  RETIRED) 

30 

YALE  SPARSE 

31 

YALE  ENUELOPE 

32  NESTED  DISSECTION 

30  31  33  34  35  3S  3? 

33  SOR 


34  JACOBI  SI 

35  JACOBI  CG 

3S  SYMMETRIC  SOR  SI 
37  SYMMETRIC  SOR  CG 
33  REDUCED  SYSTEM  SI 
39  REDUCED  SYSTEM  CG 


01  201111110111112 
02  021101210111111 
03  201111011111111 
04  201101210200212 

05  201101010200122 
OG  201101010200122 
07  201111010200122 
03  022102010200222 

09  201112110200122 

10  201101210111112 
11  201101210111112 
12  201101210111112 
13  201101210111112 
’  EOR 


«#  s  »  r  »  o  *  a  >*»  •»«»*»  »6f}  »*»#»#*»  «» ■*<*»  »  »»««  *  »»»  a  » >•*  onttft  »»  e  *»«»»*■ «  «»*»«»  «s  e  *  » 

b  a 

-  -  -  ----------  -------  -  -  -  —  a 

»  E  L  L  P  (1  C  i;  P  D  E  POPULATION  OPTIONS  FILE* 

9  -  -  --  --  -  -  -  -  ----------  -------  -  —  —  — 


3  3  3  33333::  «59  399  39«:>»99:i99339999993«  33  99999939333  3  9999993999*9999999999999 

OPTFIL 


OPTFIL  CONTAINS  INFORMATION  WHICH  MAY  BE  USED  TO  GENERATE  THE 
OPTIONS  SEGMENT  OF  AN  ELLPACK  PROGRAM. 

OPTFIL  IS  DIUIDED  UP  INTO  RECORDS  WHICH  ARE  NUMBERED  0,  1.  2,... 
ETC.  THE  END-OF-RECORD  IS  DESIGNATED  3Y  ttEOR  (’EOR  ON  NON-CDC 
INSTALLATIONS). 

RECORD  0  CONTAINS  A  DESCRIPTION  OF  THE  PURPOSE  AND  ORGANIZATION 
OF  OPTFIL.  RECORDS  1,  2,  3....  HAUE  THE  FOLLOWING  FORMAT: 

LINE  l:  LINE  1  CONTAINS  THE  RECORD  NUMBER. 

LINE  2:  LINE  2  MUST  CONTAIN  THE  8  CHARACTERS  OPTIONS.  IN 
COLUMNS  1-3,  FOLLOWED  ON  THE  SAME  LINE  BY  ALL  OF  THE  OPTIONS 
SELECTED. 

RELATED  FILES:  GENPGM,  EQNFIL,  MACFIL,  GRDFIL,  OUTFIL  AND  MODATA 


’  EOR 

RECORD 

OPTIONS. 

1 

TIME 

S 

MEMORY 

$ 

LEUEL=1 

’EOR 

RECORD 

2 

OPTIONS. 

TIME 

5 

MEMORY 

$ 

LEUEL=2 

’EOR 

RECORD 

3 

OPTIONS. 

TIME 

5 

MEMORY 

$ 

LEUEL=3 

’EOR 

RECORD 

4 

OPTIONS. 

TIME 

5 

MEMORY 

5 

LEUEL=4 

’EOR 

RECORD 

5 

OPTIONS. 

TIME 

5 

MEMORY 

5 

LEUEL=5 

’ECR 

r* 

9  £03 
’EOF 


143 


*■  ‘  xx  :•  x- " r, ::  x x  x  x  ::  x  x x x x  x -x  x  x -- x  x  -x  '  - 


E  L  L  P  ft  C  K  P  D  Z  POPULATION  GRID  FILE 


•  x  x-  :  x-  x  2  ::•  x  -a :.-  x  •::■  x *  x  x- 2 * ::- x  *  *  x  * x x  ■::■  x  2  x -x  > -:;■ :: x ::  x  ■,  x  ::■  ; x x- :;- x  ■:*  2 2  :  a :. ;:  *  x  -x  x  2 2  2222 2  -■  x  x- 2 2  x 


CROP XL 


CRDFIL  CONTAINS  INFORMATION  WHICH  MAY  3E  USED  TO  GENERATE  THE 
GRID  SEGMENT  OF  AN  ELLPACK  PROGRAM. 

GRDFIL  IS  DIUIDED  UP  INTO  RECORDS  WHICH  ARE  NUMBERED  0.  1.  2,... 
ETC.  THE  IND-OF-RICORD  IS  DESIGNATED  BY  sEOR  C’EOR  ON  NON-CDC 
INSTALLATIONS) . 

RECORD  0  CONTAINS  A  DESCRIPTION  OF  THE  PURPOSE  AND  ORGANIZATION 
OF  GRDFIL.  RECORDS  1.  2,  3. . . .  HALE  THE  FOLLOWING  FORMAT: 

LINE  l:  LINE  1  CONTAINS  THE  RECORD  NUMBER. 

REMAINING  LINES:  THE  REMAINING  LINES  OF  THE  RECORD  CONTAIN  THE 
GRID  SEGMENT  EXACTLY  AS  IT  MILL  APPEAR  IN  THE  GENERATED  ELLPACK 
PROGRAM.  TO  SPECIFY  AN  ELLPACK  CONTINUATION  LINE,  TYPE  ft  * . ’ 
(DOT)  IN  COLUMN  2.  THE  INFORMATION  OF  THIS  RECORD  IS  COPIED 
DIRECTLY  INTO  THE  GRID  SEGMENT  OF  THE  GENERATED  ELLPACK  FROGRAM. 
FOR  PORTABILITY  PURPOSES,  THE  END-OF-RECORD  IS  DETECTED  BY  THE 
PRESENCE  OF  A  (DASH)  IN  COLUMN  I. 

RELATED  FILES:  GENPGM,  EQNFIL,  MACFIl,  OPTFIL,  OUTFIL  AND  NODATA 


•EOR 

RECORD 

1 

UNIFORM 

X  = 

5 

5 

UNIFORM 

Y  =  5 

•EOR 

RECORD 

2 

UNIFORM 

X  = 

a 

s 

UNIFORM 

Y  =  3 

’  EOR 

f?ZCC,?D  3 

UNIFORM  X=5  5  NGRIDY=!2,  0.0,  0.123,  0.24333,  0.479532, 
.  0. G373401 >  0.30323,  1.0,  1.35794,  1.334323,  2.03034, 

.  2.43735,  3.0 


*  E  L  L  P  A  C  K  P  D  E  POPULATION  OUTPUT  FILE  * 


OUTPIL 


QUTPIL  CONTAINS  INFORMATION  WHICH  MAY  BE  USED  TO  GENERATE  THE 
OUTPUT  SEGMENT  OF  AN  ELLPACK  PROGRAM. 

OUTFIL  IS  DIUIDED  UP  INTO  RECORDS  WHICH  ARE  NUMBERED  0,  1,  2,... 
ETC.  THE  END-OF-RECORD  IS  DESIGNATED  BY  #EOR  C'EQR  ON  NON-CDC 
INSTALLATIONS). 

RECORD  0  CONTAINS  A  DESCRIPTION  OF  THE  PURPOSE  AND  ORGANIZATION 
OF  OUTFIL.  RECORDS  1,  2,  3,...  HAUE  THE  FOLLOWING  FORMAT: 

LINZ  l:  LINE  1  CONTAINS  THE  RECORD  NUMBER. 

REMAINING  LINES:  THE  REMAINING  LINES  OF  THE  RECORD  CONTAIN  THE 
OUTPUT  SEGMENT  EXACTLY  AS  IT  WILL  APPEAR  IN  THE  GENERATED  ELL¬ 
PACK  PROGRAM.  TO  SPECIFY  AN  ELLPACK  CONTINUATION  LINE.  TYPE  A 
(DOT)  IN  COLUMN  2.  THE  INFORMATION  OF  THIS  RECORD  IS  COPIED 
DIRECTLY  INTO  THE  OUTPUT  SEGMENT  OF  THE  GENERATED  ELLPACK 
PROGRAM.  FOR  PORTABILITY  PURPOSES,  THE  END-OF-RECORD  IS 
DETECTED  BY  THE  PRESENCE  OF  A  (DASH)  IN  COLUMN  1. 

RELATED  FILES:  GENPGM,  EONFIL,  MACFIL,  OPTFIL,  GRDFIL  AND  MODATA 


’  EOR 
RECORD 

1 

TABLE-SOLUTION  5  MAX-SOLUTION  S  MAX-ERROR 

’EOR 

RECORD 

2 

TABLE-SOLUTION  S  PLOT-SOLUTION 

’EOR 

RECORD 

3 

PLOT-TRUE 

’EOR 

RECORD 

4 

TABLE-ERROR  5  MAX-ERROR  5  MAX-SOLUTION 

’EOR 

RECORD 

5 

TABLE-TRUE  5  TABLE-SOLUTION  5  TABLE-ERROR 

’  TP"3 

RECORD 

r» 

O 

TABLE-TRUE  5  TABLE-SOLUTION  5  TA3LE-ZRR0R 

PLOT-TRUE  5  PLOT-SOLUTION  5  PLOT-ERROR 

’EOR 

RECORD 

7 

TABLE-ERROR  0  MAX-ERROR 

PLOT-TRUE  3  PLOT-SOLUTION  3  PLOT-ERROR 

j 

’“OR 

’EOF 
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SUBROUTINE  TEST (LOOP)  TEST 

TEST 

TEST  IS  CALLED  AT  THE  END  OF  THE  STANDARD  MODULE  SEQUENCE  IN  TEST 

THE  PDE  PERFORMANCE  EUALUATION  TESTING.  IT  COMPUTES  UARIOUS  TEST 

PERFORMANCE  MEASURES  ABOUT  THE  RUN  AND  WRITES  IT  ONTO  TAPE4.  TEST 

TEST 

THIS  ROUTINE  IS  BASED  UPON  THE  SEPT  1978  UERSION  OF  ELLPACK  77.  TEST 

TEST 
ELDECL 

ELLPACK  77  INTERFACE  ELDECL 

ELDECL 

LOGICAL  DIM2. DIM3. POISON, LAPL AC. CONSTC. SELFAD. CROSST, DIRICH,  ELDECL 

$  NEUMAN, MIXED, UNIFRM. DEBUG. TIMER. HOMOEQ. HOMOBC. SYMMET,  ELDECL 

$  FATAL, CLOCKU.RECTAN  ELDECL 

REAL  AX,  BX>  AY, BY, A2, B2»  HX»  HY>  HZ, CUXX, CUXY, CUYY,  ELDECL 

$  CUX, CUY, CU, CUXZ, CUYZ. CUZZ , CUZ. EPSGRD  ELDECL 

INTEGER  I ROT (S) , HORZ, UERT, BOTH. INTER. STAR. ONE, MINUS, XXX, EXTER,  ELDECL 

$  PERIOD. CORNER  ELDECL 

ELDECL 

COMMON  /  PROBL  /  DIM2, DIM3, POISON, LAPLAC, CONSTC, SELFAD. HOMOEQ.  ELDECL 

$  CROSST, HOMOBC. DIRICH, NEUMAN, MIXED. UNIFRM  ELDECL 

COMMON  ✓  PROBR  /  AX, BX. AY, BY, AZ, BZ. HX, HY, HZ  ELDECL 

COMMON  ✓  PROBI  /  NGRIDX.NGRIDY. NGRIDZ  ELDECL 

COMMON  ✓  CPDE  /  CUXX, CUXY, CUYY. CUX, CUY. CU. CUXZ. CUYZ. CUZZ. CUZ  ELDECL 

COMMON  ✓  CONTRL  /  DEBUG. TIMER, SYMMET. FATAL, RECTAN  ELDECL 

COMMON  ✓  INTEGS  /  NUMBEQ, NUMCOE, NROU, NCOL, NBAND, IROT . LEUEL,  ELDECL 

$  INITL, INDIS, INSOL, MINPUT,  ELDECL 

$  MOUTPT, MEMORY, ININD, NGRDX2, NGRDYZ,  ELDECL 

S  NGRDZZ, MXNEQZ, MXNC02, NROWDZ. NC0LD2  ELDECL 

COMMON  ✓  REALS  /  ERRMAX, SOLMAX, TRUMAX, RESMAX, TIMES! 1 )  ELDECL 

COMMON  /  BNDRY  ✓  IPIECE.  NBOUND.  NBNDPT ,  CLOCK14  ELDECL 

COMMON  /  SYMCON  /  H0R2, UERT, BOTH, INTER, STAR, ONE, BLANK, MINUS,  ELDECL 

$  XXX, EXTER, PERIOD,  CORNER  ELDECL 

COMMON  ✓  NUMCON  /  EPSGRD  ELDECL 

COMMON  /GRIDXZ/  GRIDX(l)  TEST 

COMMON  'GRIDYZ/  GRIDY(l)  TEST 

COMMON  'GRID2Z/  GRIDZ(l)  TEST 

COMMON  /COEFZZ/  COEF(l)  TEST 

COMMON  /IDCOZZ/  IDCOEF(l)  TEST 

COMMON  /TABLZZ/  TABLE ( 1 )  TEST 

COMMON  /UNKNZZ/  UNKNWN(l)  TEST 

COMMON  /NDXUZZ/  NDXUNK(l)  TEST 

COMMON  /BCTYZZ/  BCTYPE(l)  TEST 

COMMON  /INUNZZ/  INUNDX(l)  TEST 

COMMON  /NDXEZZ/  NDXEQ(l)  TEST 

COMMON  /IGRIZZ/  IGRID(l)  TEST 

TEST 

REAL  ERRL2. RESMAX, RE5L2  TEST 

INTEGER  BCTYPE  TEST 

TEST 

DATA  NRITNS  /Q/,  INSOL'O/,  NUMBEQ'O/  TEST 

COMMON  XITCOM1/  NRITNS  TEST 

THIS  IS  THE  NUMBER  OF  ITERATIONS  FROM  ITPACK  TEST 

TEST 

NGRDXZ  =  NGRIDX  TEST 

NGRDYZ  =  NGRIDY  TEST 

NGRDZZ  =  NGRIDZ  TEST 

TEST 
TEST 

COMPUTE  L-2  DISCRETE  NORM  AT  THE  NODES  TEST 

TEST 

RNODES  =  1.0/FLOAT(NGRIDX*NGRIDY«NGRIDZ)  TEST 

ERRL2  =  0.  TEST 

ERR  =  0.0  TEST 

DO  100  IX=1, NGRIDX  TEST 

DO  100  IY=1, NGRIDY  TEST 

DO  100  IZ=1, NGRIDZ  TEST 

E  =  ERROR ( GRIDX ( IX ) , GRIDY ( I Y ) , GRIDZ ( IZ ) , NGRDXZ,  TE5T 

$  NGRDYZ, NGRDZZ, GRIDX, GRIDY, GRIDZ, UNKNWN,  TEST 

S  MXNEOZ, NDXUNK, TABLE, COEF, IDCOEF , MXNCOZ,  TEST 

S  BCTYPE. INUNDX.NDXEQ. I GRID)  TEST 

C  TEST 

ERRL2  =  ERRL2  +  E»E  TEST 

ERR  =  AMAX 1 ( ABS ( E ) , ERR )  TEST 

100  CONTINUE  TEST 

ERRL2  =  SORT (ERRL2) -RNODES  TEST 
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TEST 

COMPUTE  THE  ABS.  MAXIMUM  AND  !_-2  NORM  OF  THE  RESIDUAL  TEST 

AT  THE  MIDPOINTS  OF  EACH  SUBRECTANGLE  OF  THE  PARTITION  TEST 

TEST 

RESMAX  =  -1.  TEST 

RESL2  =  0.  TEST 

RESMXR  =  0.  TEST 

ZMIDL  =  0.  TEST 

NZ  =  NGRIDZ  -  1  TEST 

NX  =  NGRIDX  -  1  TEST 

NY  =  NGRIDY  -  1  TEST 

IF  (DIM3)  GO  TO  210  TEST 

TEST 

TWO-DIMENSIONAL  CASE  TEST 

TEST 

RINTUL  =  1 . O/FLOAT ( NX*NY )  TEST 

DO  200  IX  =  1 • NX  TEST 

XMIDL  =  (GRIDX( IX)+GRIDX( IX+1 )  )*.5  TEST 

DO  200  IY  =  l.NY  TEST 

YMIDL  =  (GRIDY( IY )+GRIDY( IY+1 )  )*.  5  TEST 

R  =  RESID(XMIDL, YMIDL, ZMIDL. NGRDXZ, NGRDYZ.NGRDZZ.GRIDX,  TEST 

$  GR I DY  >  GR I DZ » UNKNWN i MXNEQZ » NDXUNK  ,  T ABLE » C0EF ,  TEST 

S  IDCOEF.MXNCOZ.BCTYPE.INUNDX.NDXEQ, IGRID)  TEST 

RESMAX  =  AMAX1 (RESMAX. ABS(R))  TEST 

RESL2  =  RESL2  +  R»R  TEST 

RHS  =  PDERHSCXMIDL. YMIDL)  TEST 

IF  (RHS  .NE.  0.0)  RESMXR  =  AMAX1 (RESMXR, ABS(R/RHS) )  TEST 

200  CONTINUE  TEST 

RESL2  =  S0RT(RESL2)*RINTUL  TEST 

GO  TO  300  TEST 

TEST 

THREE  DIMENSIONAL  CASE  TEST 

TEST 

210  CONTINUE  TEST 

RINTUL  =  1 . O^FLOAT ( NX*NY*NZ )  TEST 

DO  250  IX  =  l.NX  TEST 

XMIDL  =  (GRIDX( IX)+GRIDX( IX+1 ) )*.5  TEST 

DO  250  IY  =  l.NY  TEST 

YMIDL  =  (GRIDY( IY)+GRIDY( IY+1 ) )*.S  TEST 

DO  250  IZ  =  l.NZ  TEST 

ZMIDL  =  (GRIDZ( IZ)+GRIDZ( IZ+1 ) )*.5  TEST 

R  =  RE5ID( XMIDL. YMIDL. ZMIDL. NGRDXZ. NGRDYZ.NGRDZZ.GRIDX.  TEST 

S  GRIDY.GRIDZ. UNKNWN. MXNEQZ. NDXUNK. TABLE. COEF,  TEST 

$  IDCOEF.MXNCOZ.BCTYPE. INUNDX. NDXEO, IGRID)  TEST 

RESMAX  =  AMAX1 (RESMAX. ABS(R))  TEST 

RESL2  =  RESL2  +  R*R  TEST 

RHS  =  PDERHS( XMIDL. YMIDL. ZMIDL)  TEST 

IF  (RHS  .NE.  0.0)  RESMXR  =  AMAX1 (RESMXR, ABS(R^RHS) )  TEST 

250  CONTINUE  TEST 

RESL2  =  SORT ( RESL2 ) *R I NTUL  TEST 

TEST 

COMPUTE  THE  TOTAL  EXECUTION  TIME  TEST 

TEST 

300  CONTINUE  TEST 

TEST 

FIRST  FIND  NUMBER  OF  MODULES  IN  EXECUTION  SEQUENCE  TEST 

GO  TO  (303.303.303.301,303.303.301,301.301.303,301,303.303.  TEST 

$  301),  INDIS  TEST 

301  CONTINUE  TEST 

NRMODL  =  1  TEST 

GO  TO  320  TEST 

303  CONTINUE  TEST 

NRMODL  =  3  TEST 

320  CONTINUE  TEST 

TEST 

ADD  TIME  TO  REFORMAT  LINEAR  SYSTEM  (EXCEPT  YALE  SPARSE)  TEST 

IF  ( ( INSOL  .NE.  15)  .AND.  (NRMODL  .EQ.  3))  TEST 

$  TIMES(3)  =  TIMES(3)  +  TIMES(4)  TEST 

C  TEST 

C  NOW  COMPUTE  THE  TOTAL  TIME  TEST 

TLTIME  =0.0  TEST 

DO  325  1=1, NRMODL  TEST 

TLTIME  =  TLTIME  +  TIMES! I )  TEST 

325  CONTINUE  TEST 

C  TEST 

C  FIND  MAX  DISTANCE  BETWEEN  ANY  TWO  GRID  LINES  TEST 
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r  TEST 

IF  (UNIFEM)  GO  TO  370  TEST 

TEST 

CASE  Or  NON-UNIFORM  GRID  TEST 

HMAX  =0.0  TEST 

DO  330  1=1, NX  TEST 

DX  =  GRIDXC I+l )-GRIDX( I )  TEST 

HMAX  =  AMAXl(DX.HMAX)  TEST 

330  CONTINUE  TEST 

DO  340  1=1, NY  TEST 

DY  =  GRIDY( I+l )-GRIDY( I )  TEST 

HMAX  =  AMAX1 (DY, HMAX)  TEST 

340  CONTINUE  TEST 

IF  (DIMS)  GO  TO  3S0  TEST 

DO  350  1=1 >NZ  TEST 

DZ  =  GRIDZ( I+l )-GRIDZ( I )  TEST 

HMAX  =  AMAX1(DZ,HMAX)  TEST 

350  CONTINUE  TEST 

3G0  CONTINUE  TEST 

GO  TO  330  TEST 

TEST 

CASE  OF  UNIFORM  GRID  TEST 

370  CONTINUE  TEST 

HMAX  =  AMAX1 (HX, HY)  TEST 

IF  (DIM3)  HMAX  =  AMAX1 (HZ, HMAX)  TEST 

330  CONTINUE  TEST 

TEST 

WRITE  SUMMARY  OF  ELLPACK  RUN  ON  SAUE  FILE  TEST 

TEST 

WRITE(4, 1000)  NGRIDX, NGRIDY, HMAX, NUMBEQ, ERR, ERRMAX, ERRL2,  TEST 

$  RESMAX. RESMXR, RESL2, SOLMAX, NRITNS. MEMORY, TLTIME,  TEST 

$  (TIMES( I ) , 1  =  1 >  NRMQDL)  TEST 

1000  FORMAT ( IX. 214, IX, E10 . 2. IX, 15, 2X, 7E9.2, IX, 13, IX, IS, 1X.4FG.2)  TEST 

C  TEST 

RETURN  TEST 

END  TEST 

’EOR 
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REAL  FUNCTION  OUADR CX. AUX, UALUX,  N)  GUADR 

OUADR 

.  OUADR 

QUAD? 

ELLPACK  7  3  OUTPUT  MODULE  QUAD"5 

CUAE0 

FUNCTION  OUADR  OUADR 

OUAD'5 

PURPOSE  OUADR 

TO  PERFORM  1-D  EXTRAPOLATION  USING  N  POINTS  OUADR 

AT  THE  POINT  X.  OUADR 

OUADR 

PARAMETERS  OUADR 

AUX  -  UECTOR  OF  ARGUMENT  UALUES  OUADR 

UALUX  -  UECTOR  OF  FUNCTION  UALUES  CORRESPONDING  OUADR 

TO  AUX.  OUADR 

N  -  NUMBER  OF  INTERPOLATION  POINTS  OUADR 

OUADR 

METHOD  OUADR 

DIUIDED  DIFFERENCES  ARE  USED  TO  COMPUTE  THE  OUADR 

EXTRAPOLATED  UALUE.  OUADR 

OUADR 

PCX)  =  FI  +  CX-AUXC 1 ) )«F2  +  CX-AUXC 1 ) )*CX-AUXC2) )*F3  OUADR 

Oi  'ADR 

HISTORY  OUADR 

MODIFIED  BY  BILL  WARD,  MARCH,  1979.  OUADR 

OUADR 

.  OUADR 

O1  'ADR 

REAL  AUXCN) ,  UALUXCN),  OUADR 

A  FI,  F2,  F3,  Cl,  T2  OUADR 

C  OUADR 

FI  =  UALUX Cl)  OUADR 

F2  =  CUALUXC2)  -  UALUXCD)  /  CAUXC2)  -  AUXC1))  OUADR 

Cl  =  X  -  AUX ( 1 )  OUADR 

GUADR  =  FI  +  Ci*F2  OUADR 

IF  CN  .EG.  2)  GO  TO  939  GUADR 

T2  =  CUALUXC3)  -  UP.LUXC2) )  /  CAUXC3)  -  AUXC2) )  OUADR 

F3  =  CT2  -  F2)  /  CAUXC3)  -  AUXC1))  GUADR 

OUADR  =  OUADR  +  C!»CX  -  A'JX (2)  )*F3  OUADR 

C  OUADR 

999  COMTINUE  OUADR 

RETURN  OUADR 

END  OUADR 

’  EOR 
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